------------------------------------- Doing diff of GRIBP.f <<< ------ >>> /global/save/wx20mc/gfdl/sorc/2009/gfdl_mkgrib6thdeg.fd/GRIBP.f 179,182d178 < < if (ivr == 20 .or. ivr == 21) then < kxx = 1 < endif 219c215 < C DEAL WITH 35m U (m/s) --- > C DEAL WITH SURFACE U (m/s2) 233c229 < C DEAL WITH 35m V (m/s) --- > C DEAL WITH SURFACE V (m/s2) 474,475d469 < C DEAL WITH 10m U (m/s)... make sure KXX=1 < 481,482c475,477 < DO 136 J = 1 , JMX < DO 136 I = 1 , IMX --- > > DO 146 J = 1 , IMX > DO 146 I = 1 , IMX 484c479 < 136 CONTINUE --- > 146 CONTINUE 486,489c481 < C < C < C DEAL WITH 10m V (m/s)... make sure KXX=1 < C --- > 495,500c487,491 < DO 146 J = 1 , JMX < DO 146 I = 1 , IMX < FLD(I,J) = VSF(I,J) < 146 CONTINUE < ENDIF < --- > DO 147 J = 1 , JMX > DO 147 I = 1 , IMX > FLD(I,J) = USF(I,J) > 147 CONTINUE > ENDIF ------------------------------------- Doing diff of GWRITE.f <<< ------ >>> /global/save/wx20mc/gfdl/sorc/2009/gfdl_mkgrib6thdeg.fd/GWRITE.f ------------------------------------- Doing diff of INTVAR.f <<< ------ >>> /global/save/wx20mc/gfdl/sorc/2009/gfdl_mkgrib6thdeg.fd/INTVAR.f ------------------------------------- Doing diff of MAIN.f <<< ------ >>> /global/save/wx20mc/gfdl/sorc/2009/gfdl_mkgrib6thdeg.fd/MAIN.f 239c239 < WRITE(23,rec=irec)(U35(I,J), I = 1 , IMX) --- > WRITE(23,rec=irec)(USF(I,J), I = 1 , IMX) 243,250d242 < WRITE(23,rec=irec)(V35(I,J), I = 1 , IMX) < 25 CONTINUE < DO 21 J = 1 , JMX < irec=irec+1 < WRITE(23,rec=irec)(USF(I,J), I = 1 , IMX) < 21 CONTINUE < DO 22 J = 1 , JMX < irec=irec+1 252c244 < 22 CONTINUE --- > 25 CONTINUE ------------------------------------- Doing diff of TLDATA.f <<< ------ >>> /global/save/wx20mc/gfdl/sorc/2009/gfdl_mkgrib6thdeg.fd/TLDATA.f