IMPLICIT REAL*8 (A-H,O-Z) INTEGER ZIMX,ZJMX,ZKMX,ZFLDX,ZPHYX,ZIMXP,ZJMX2,ZKMXP,ZIXKX, 1 ZIMXP1,ZJMXP1 PARAMS.3 PARAMETER ( PARAMS.4 c **** NUMBER OF LONGITUDINAL GRID POINTS PARAMS.5 1 ZIMX=72, PARAMS.6 c **** NUMBER OF LATITUDINAL GRID POINTS PARAMS.7 2 ZJMX=36, PARAMS.8 c **** NUMBER OF VERTICAL LAYERS PARAMS.9 3 ZKMX=28, PARAMS.10 c **** HEIGHT OF TOP OF MODEL PARAMS.11 4 ZST=7., PARAMS.12 c **** HEIGHT OF BOTTOM OF MODEL PARAMS.13 5 ZSB=(-7.), PARAMS.14 c **** MAXIMUM NO. OF COLUMNS PER BUFFER PARAMS.15 6 ZFLDX=900, PARAMS.16 c **** MAXIMUM NO. OF COLUMNS FOR NPHYS VARIABLE PARAMS.17 7 ZPHYX=1131, PARAMS.18 c **** DIMENSION PARAMETERS PARAMS.21 9 ZIMXP=ZIMX+4, PARAMS.22 1 ZJMX2=ZJMX+ZJMX, PARAMS.23 2 ZKMXP=ZKMX+1, PARAMS.24 3 ZIXKX=ZIMXP*ZKMXP, 4 ZIMXP1=ZIMX+1, 5 ZJMXP1=ZJMX+1) COMMON/ARRAY/ F(ZIMXP,8*ZFLDX+ZPHYX),G(ZIMXP,ZFLDX,ZJMX) C **** NUMBER OF APEX LONGITUDE GRID POINTS params.h.30 PARAMETER( params.h.31 1 IMAXM=640, params.h.32 C **** NUMBER OF APEX LATITUDE GRID POINTS params.h.33 2 JMAXM=385, params.h.34 C **** DERIVED DIMENSIONS params.h.35 3 IMAXMP=IMAXM+1, params.h.36 4 IMX0=IMAXM+1, params.h.37 5 JMX0=(JMAXM+1)/2, params.h.38 6 IMX1=(IMX0+1)/2, params.h.39 7 JMX1=(JMX0+1)/2, params.h.40 8 IMX2=(IMX1+1)/2, params.h.41 9 JMX2=(JMX1+1)/2, params.h.42 1 IMX3=(IMX2+1)/2, params.h.43 2 JMX3=(JMX2+1)/2, params.h.44 3 IMX4=(IMX3+1)/2, params.h.45 4 JMX4=(JMX3+1)/2, params.h.46 C **** SPACE NEEDED FOR DESCRETIZED COEFFICIENTS OF params.h.47 C **** OF DYNAMO PDE AT ALL 5 LEVELS OF RESOLUTION params.h.48 5 NCEE=10*IMX0*JMX0+9*(IMX1*JMX1+IMX2*JMX2+IMX3*JMX3+IMX4*JMX4)) params.h.49 PARAMETER( params.h.50 1 JMAXMH=(JMAXM+1)/2, params.h.51 C **** COEFFICIENTS ARE STORED IN 1-D ARRAY CEE(NCEE). params.h.52 C **** FOLLOWING PARAMETERS ARE POINTERS TO THE params.h.53 C **** BEGINNING OF THE COEFFICIENTS FOR EACH LEVEL params.h.54 C **** OF RESOLUTION. params.h.55 2 NC0=1, params.h.56 3 NC1=NC0+10*IMX0*JMX0, params.h.57 4 NC2=NC1+9*IMX1*JMX1, params.h.58 5 NC3=NC2+9*IMX2*JMX2, params.h.59 6 NC4=NC3+9*IMX3*JMX3) params.h.60 C params.h.