------------------------------------- Doing diff of GRIBP.f <<< ------ >>> /nwprod/sorc/gfdl_mkgrib.fd/GRIBP.f 4,6d3 < common /heatf/ ch(imx,jmx),cd(imx,jmx),zt(imx,jmx), < * zc(imx,jmx),chcd(imx,jmx) < c 169c166 < DO 50 IVR = 1 , 31 --- > DO 50 IVR = 1 , 26 176c173,177 < KXX = 20 --- > if (ivr >= 19 .and. ivr <= 21) then > kxx = 1 > else > KXX = 20 > endif 314,385c315 < C < C < C DEAL WITH CH (x 1000.0) < C < IF(IVR.EQ. 27)THEN < IPARAM = 253 < ILEVT = 1 < ISCALE = 3 < LEV = 0 < DO J = 1 , JMX < DO I = 1 , IMX < FLD(I,J) = ch(i,j) < ENDDO < ENDDO < ENDIF < C < C DEAL WITH CD (x 1000.0) < C < IF(IVR.EQ. 28)THEN < IPARAM = 252 < ILEVT = 1 < ISCALE = 3 < LEV = 0 < DO J = 1 , JMX < DO I = 1 , IMX < FLD(I,J) = cd(i,j) < ENDDO < ENDDO < ENDIF < C < C DEAL WITH zt (mm) < C < IF(IVR.EQ. 29)THEN < IPARAM = 183 < ILEVT = 1 < ISCALE = 3 < LEV = 0 < DO J = 1 , JMX < DO I = 1 , IMX < FLD(I,J) = zt(i,j) < ENDDO < ENDDO < ENDIF < C < C DEAL WITH zc (mm) < C < IF(IVR.EQ. 30)THEN < IPARAM = 182 < ILEVT = 1 < ISCALE = 3 < LEV = 0 < DO J = 1 , JMX < DO I = 1 , IMX < FLD(I,J) = zc(i,j) < ENDDO < ENDDO < ENDIF < C < C DEAL WITH CH over CD < C < IF(IVR.EQ. 31)THEN < IPARAM = 254 < ILEVT = 1 < ISCALE = 3 < LEV = 0 < DO J = 1 , JMX < DO I = 1 , IMX < FLD(I,J) = chcd(i,j) < ENDDO < ENDDO < ENDIF < C --- > 515,549d444 < if(kk .EQ. 20) then < DO J = 1 , JMX < DO I = 1 , IMX < FLD(I,J) = ch(i,j) < enddo < enddo < endif < if(kk .EQ. 19) then < DO J = 1 , JMX < DO I = 1 , IMX < FLD(I,J) = cd(i,j) < enddo < enddo < endif < if(kk .EQ. 18) then < DO J = 1 , JMX < DO I = 1 , IMX < FLD(I,J) = zt(i,j) < enddo < enddo < endif < if(kk .EQ. 17) then < DO J = 1 , JMX < DO I = 1 , IMX < FLD(I,J) = zc(i,j) < enddo < enddo < endif < if(kk .EQ. 16) then < DO J = 1 , JMX < DO I = 1 , IMX < FLD(I,J) = chcd(i,j) < enddo < enddo < endif ------------------------------------- Doing diff of GWRITE.f <<< ------ >>> /nwprod/sorc/gfdl_mkgrib.fd/GWRITE.f ------------------------------------- Doing diff of INTVAR.f <<< ------ >>> /nwprod/sorc/gfdl_mkgrib.fd/INTVAR.f ------------------------------------- Doing diff of MAIN.f <<< ------ >>> /nwprod/sorc/gfdl_mkgrib.fd/MAIN.f 46,48d45 < < common /heatf/ ch(imx,jmx),cd(imx,jmx),zt(imx,jmx), < * zc(imx,jmx),chcd(imx,jmx) 276,282d272 < DO i = 1 , IMX < cd(i,j) = typ2c(42,i,7) < ch(i,j) = typ2c(41,i,7) < zt(i,j) = -typ2c(40,i,7) < zc(i,j) = -typ2c(39,i,7) < chcd(i,j) =typ2c(38,i,7) < ENDDO ------------------------------------- Doing diff of TLDATA.f <<< ------ >>> /nwprod/sorc/gfdl_mkgrib.fd/TLDATA.f