We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent e7a81d7 commit 3ca89cfCopy full SHA for 3ca89cf
GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSgwd_GridComp/GEOS_GwdGridComp.F90
@@ -839,10 +839,9 @@ subroutine Gwd_Driver(RC)
839
do I=1,IM
840
if (T_EXP(I,J,L) > 333.0) then
841
print *, "Temperature spike detected : ", T_EXP(I,J,L)
842
- print *, " GWD TOT Temp Increment : ", DTDT_TOT(I,J,L)*DT
843
- print *, " GWD BKG Temp Increment : ", DTDT_BKG(I,J,L)*DT
844
- print *, " GWD ORO Temp Increment : ", DTDT_ORO(I,J,L)*DT
845
- print *, " GWD RAH Temp Increment : ", DTDT_RAH(I,J,L)*DT
+ print *, " GWD TOT Temp Increment : ", DTDT_GWD(I,J,L)*DT
+ print *, " GWD ORO Temp Increment : ", DTDT_ORG(I,J,L)*DT
+ print *, " GWD BKG Temp Increment : ", (DTDT_GWD(I,J,L)-DTDT_ORG(I,J,L))*DT
846
print *, " AFTER GWD Parameterization"
847
print *, " Latitude =", LATS(I,J)*180.0/MAPL_PI
848
print *, " Longitude =", LONS(I,J)*180.0/MAPL_PI
0 commit comments