Skip to content

Commit 3ca89cf

Browse files
committed
bug fix in debugging GWD section
1 parent e7a81d7 commit 3ca89cf

File tree

1 file changed

+3
-4
lines changed

1 file changed

+3
-4
lines changed

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSgwd_GridComp/GEOS_GwdGridComp.F90

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -839,10 +839,9 @@ subroutine Gwd_Driver(RC)
839839
do I=1,IM
840840
if (T_EXP(I,J,L) > 333.0) then
841841
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
842+
print *, " GWD TOT Temp Increment : ", DTDT_GWD(I,J,L)*DT
843+
print *, " GWD ORO Temp Increment : ", DTDT_ORG(I,J,L)*DT
844+
print *, " GWD BKG Temp Increment : ", (DTDT_GWD(I,J,L)-DTDT_ORG(I,J,L))*DT
846845
print *, " AFTER GWD Parameterization"
847846
print *, " Latitude =", LATS(I,J)*180.0/MAPL_PI
848847
print *, " Longitude =", LONS(I,J)*180.0/MAPL_PI

0 commit comments

Comments
 (0)