------------------------------------- Doing diff of GRIBP.f <<< ------ >>> /gpfs/t3/global/save/wx20mc/gfdl/sorc/2009/gfdl_mkgrib6thdeg.fd/GRIBP.f 25,26c25 < c CHARACTER * 1 KBUF(102400) < CHARACTER * 1 KBUF(750000) --- > CHARACTER * 1 KBUF(102400) 180,183d178 < < if (ivr == 20 .or. ivr == 21) then < kxx = 1 < endif 220c215 < C DEAL WITH 35m U (m/s) --- > C DEAL WITH SURFACE U (m/s2) 234c229 < C DEAL WITH 35m V (m/s) --- > C DEAL WITH SURFACE V (m/s2) 475,476d469 < C DEAL WITH 10m U (m/s)... make sure KXX=1 < 482,483c475,477 < DO 136 J = 1 , JMX < DO 136 I = 1 , IMX --- > > DO 146 J = 1 , JMX > DO 146 I = 1 , IMX 485c479 < 136 CONTINUE --- > 146 CONTINUE 487,490c481 < C < C < C DEAL WITH 10m V (m/s)... make sure KXX=1 < C --- > 496,497c487,488 < DO 146 J = 1 , JMX < DO 146 I = 1 , IMX --- > DO 147 J = 1 , JMX > DO 147 I = 1 , IMX 499,501c490,491 < 146 CONTINUE < ENDIF < --- > 147 CONTINUE > ENDIF 579,581d568 < < print *,'ivr= ',ivr,' lev= ',lev,' levp= ',levp,' itot= ',itot < ------------------------------------- Doing diff of GWRITE.f <<< ------ >>> /gpfs/t3/global/save/wx20mc/gfdl/sorc/2009/gfdl_mkgrib6thdeg.fd/GWRITE.f ------------------------------------- Doing diff of INTVAR.f <<< ------ >>> /gpfs/t3/global/save/wx20mc/gfdl/sorc/2009/gfdl_mkgrib6thdeg.fd/INTVAR.f 173,174c173,174 < U(i,kn)= 0.0 < V(i,kn)= 0.0 --- > U(i,kn)= 0.0 > V(i,kn)= 0.0 ------------------------------------- Doing diff of MAIN.f <<< ------ >>> /gpfs/t3/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 <<< ------ >>> /gpfs/t3/global/save/wx20mc/gfdl/sorc/2009/gfdl_mkgrib6thdeg.fd/TLDATA.f