c c Header file for flxproc with ccm related parameters: c fccm(ngcmlon,nccmlev,ngcmlat,nccmfld) (pointer pfccm is in /ccm/ below) c parameter(nlat_t21=32, nlon_t21=64, ! t21 resolution (ccm2) + nlat_maccm=64, nlon_maccm=64, ! maccm resolution (ccm2) + nlat_t42=64, nlon_t42=128, ! t42 resolution (ccm3) + mxfccm=10) ! max number of ccm fields (for dim) character*80 ccmlsd character*16 ccmres character*8 ccmflab8 pointer (pccmlon,ccmlon(1)), (pccmlat,ccmlat(1)), + (pccmlev_mb,ccmlev_mb(1)), (pfccm,fccm(1)), + (pccmlev_zp,ccmlev_zp(1)) common/ccm/ + ccmlsd, ! mss path to lsd save file made by ccmproc + glat_t21(nlat_t21), ! t21 latitudes + glat_maccm(nlat_maccm), ! maccm latitudes + luccm, ! logical unit for ccmlsd + nccmlon,nccmlat, ! number of ccm lons, lats + nccmlev, ! number of ccm pressure levels + nccmfld, ! number of ccm fields + pccmlon,pccmlat, ! pointers to ccm lon and lat arrays + pccmlev_mb, ! pointer to ccm levels (mb) + pccmlev_zp, ! pointer to ccm levels (zp) + pfccm, ! pointer to ccm fields + ccmres, ! char*16 = "CCM2(T21)" or "CCM2(MACCM)" + ccmday, ! ccm proc day + ccmflab8(mxfccm) ! char*8 ccm field names