| 1 |
jscott |
1.1 |
C**** COMMON BLOCK (D2G04) 2-D MEDIUM GRID JANUARY 1993 |
| 2 |
|
|
C**** TO CHANGE THE GRID, MODIFY THE NEXT LINE ONLY |
| 3 |
|
|
PARAMETER (IM0=01,JM0=N_LAT,LM0=N_LEV,IO0=N_LON0,KAIJ0=75) |
| 4 |
|
|
C**** IM,JM,LM LIMITED TO 72,46,36 RESPECTIVELY BY RADCOM & SIGmas |
| 5 |
|
|
REAL LHE,LHM,LHS,KAPA,LAT |
| 6 |
|
|
CHARACTER*4 XLABEL,NAMD6,JMONTH,JMNTH0 |
| 7 |
|
|
C**** THE FIRST 100 NUMBERS IN BLANK COMMON ARE INTEGERS (JC-ARRAY) |
| 8 |
|
|
COMMON IM,JM,LM,JMM1,LMM1, LS1,LTM,LBLM,LMCM,LSSM, |
| 9 |
|
|
* KOCEAN,KDISK,KEYCT,KACC,KCOPY, IRAND,IJRA,MFILTR,NDYN,NCNDS, |
| 10 |
|
|
* NRAD,NSURF,NGRND,IO ,NDAA, NDA5D,NDA5K,NDA5S,NDA4,NDASF, |
| 11 |
|
|
* MLAST,MDYN,MCNDS,MRAD,MSURF, MDIAG,MELSE,MODRD,MODD5K,MODD5S, |
| 12 |
|
|
* IYEAR,IDAY,IDAY0,JYEAR,JYEAR0, JDAY,JDATE,JDATE0,NSTEP,MRCH, |
| 13 |
|
|
* ISTART,IDUM(3),NDZERO(13),NDPRNT(13), IJD6(2,4),IDACC(12), |
| 14 |
|
|
C**** THE REMAINING NUMBERS IN BLANK COMMON ARE REAL NUMBERS |
| 15 |
|
|
* TAU,TAU0,TOFDAY,TOFDY0,DT, TAUP,TAUI,TAUE,TAUT,TAUO, |
| 16 |
|
|
* TWOPI,SDAY,LHE,LHM,LHS, RADIUS,GRAV,RGAS,KAPA,OMEGA, |
| 17 |
|
|
* RHMAX,ETA,S0X,CO2,SRCOR, PTOP,PSF,PSL,PTRUNC,AREAG, |
| 18 |
|
|
* DUMMY1(2),XINT,DLAT,DLON, SKIPSE,USESLP,USEP,USET,FIM, |
| 19 |
|
|
* RSDIST,SIND,COSD,DOPK,SIG(36),SIGE(37), |
| 20 |
|
|
C**** THE ABOVE AND AN ADDITIONAL 44 WORDS CONSTITUTE THE RC-ARRAY |
| 21 |
|
|
* DSIG(36),DSIGO(35), |
| 22 |
|
|
* LAT(JM0),SINP(JM0),COSP(JM0),COSV(JM0),DXP(JM0),DXV(JM0), |
| 23 |
|
|
* DYP(JM0),DYV(JM0),DXYP(JM0),DXYV(JM0),DXYS(JM0),DXYN(JM0), |
| 24 |
|
|
* RAPVS(JM0),RAPVN(JM0),RAVPS(JM0),RAVPN(JM0),F(JM0), |
| 25 |
|
|
* FDATA(IO0,JM0,3),ODATA(IO0,JM0,5),GDATA(IO0,JM0,14), |
| 26 |
|
|
* BLDATA(IO0,JM0,8),RQT(IO0,JM0,3),SRHR(IO0,JM0,LM0+1), |
| 27 |
|
|
* TRHR(IO0,JM0,LM0+1),VDATA(IO0,JM0,10),Z1O(IO0,JM0),Z12O(IO0,JM0) |
| 28 |
|
|
COMMON/QFL1/CORSR,QFCOR |
| 29 |
|
|
LOGICAL QFCOR |
| 30 |
|
|
DIMENSION U(IM0,JM0,LM0),V(IM0,JM0,LM0),T(IM0,JM0,LM0),P(IM0,JM0), |
| 31 |
|
|
* Q(IM0,JM0,LM0) |
| 32 |
|
|
C**** DIAGNOSTIC ARRAYS |
| 33 |
|
|
PARAMETER (IMH0=IM0/2, KACC0=JM0*80*3 + JM0*80 + |
| 34 |
|
|
* JM0*3 + JM0*LM0*59 + JM0*3*4 + IM0*JM0*KAIJ0 + |
| 35 |
|
|
* IM0*LM0*16 + IM0*JM0*LM0*3 + 20*100 + |
| 36 |
|
|
* JM0*36 + (IMH0+1)*20*8 + 8*2 + 24*50*4 + 2*01*01*01) |
| 37 |
|
|
COMMON/ACCUM/AJ(JM0,80),BJ(JM0,80),CJ(JM0,80),DJ(JM0,80), |
| 38 |
|
|
* APJ(JM0,3),AJL(JM0,LM0,59),ASJL(JM0,3,4),AIJ(IM0,JM0,KAIJ0), |
| 39 |
|
|
* AIL(IM0,LM0,16),AIJL(IM0,JM0,LM0,3),ENERGY(20,100), |
| 40 |
|
|
* CONSRV(JM0,36),SPECA((IMH0+1),20,8),ATPE(8,2),ADAILY(24,50,4), |
| 41 |
|
|
* WAVE(2,01,01,01) |
| 42 |
|
|
COMMON/TEXT/XLABEL(33),NAMD6(4),JMONTH,JMNTH0 |
| 43 |
|
|
COMMON/KEYS/KEYNR(42,50),KDIAG(12) |
| 44 |
|
|
PARAMETER (NQTAB=33) |
| 45 |
|
|
COMMON/WORKP/GBUDG(JM0+3,89,4),QMAPS(JM0+3,57), |
| 46 |
|
|
* QTABLE(JM0+3,LM0+1,NQTAB),INQTAB(NQTAB) |
| 47 |
|
|
* ,J1QT(NQTAB),INQMAP(57) |
| 48 |
|
|
real *4 AEXP4,TAU4,GBUDG,QMAPS,QTABLE |
| 49 |
|
|
common/daily4tem/co2d4tem(jm0),t2md4tem(jm0),cldd4tem(jm0) |
| 50 |
|
|
&,swtd4tem(jm0),swsd4tem(jm0),ewvd4tem(jm0) |
| 51 |
|
|
& ,pred4tem(jm0) |
| 52 |
|
|
c & ,pred4tem(jm0),DSWSRF(jm0),DLWSRF(jm0) |
| 53 |
|
|
c DSWSRF and DLWSRF moved to radia.F |
| 54 |
|
|
& ,npred4tem(jm0),nradd4tem(jm0),ncldd4tem(jm0),nt2md4tem(jm0) |
| 55 |
|
|
c common/hourly/qshr(jm0),tslhr(jm0),cldhr(jm0) |
| 56 |
|
|
c &,dswhr(jm0),dlwhr(jm0),pshr(jm0),tprhr(jm0) |
| 57 |
|
|
c & ,prhr(jm0),ushr(jm0),vshr(jm0),wshr(jm0) |
| 58 |
|
|
c & ,tyzhr(4,jm0),uyzhr(4,jm0),vyzhr(4,jm0),rhyzhr(4,jm0), |
| 59 |
|
|
c & cssyzhr(4,jm0),cmcyzhr(4,jm0),pyzhr(4,jm0) |
| 60 |
|
|
!#if ( !defined CLM ) |
| 61 |
|
|
common/prratio/prlnd2total(JM0,12) |
| 62 |
|
|
!#endif |
| 63 |
|
|
|
| 64 |
|
|
COMMON/NAVEVARS/naveo(jm0),navei(jm0),navrad(jm0),navrado(jm0) |
| 65 |
|
|
INTEGER naveo,navei,navrad,navrado |
Parent Directory
| 
Revision Log
| 
Revision Graph