Changeset 3538 for trunk/LMDZ.COMMON/libf/evolution/NS_fast_subs_mars.F90

Timestamp:

Dec 9, 2024, 12:35:05 PM (2 weeks ago)

Author:

jbclement

Message:

PEM:
Fixing Norbert Schorghofer's subroutine which modified soil temperatures and was unwanted in the PEM loop.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/NS_fast_subs_mars.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/evolution/NS_fast_subs_mars.F90

@@ -282 +282 @@
 
   if (Fgeotherm>0.) then
-     Tb = Tmean1
+     !Tb = Tmean1
      typeG = 1   ! will be overwritten by depths_avmeth
      rlow = 2*rhosatav(nz)-rhosatav(nz-1)
   else
-     Tb = T(nz)
+     !Tb = T(nz)
      typeG = -9
      rlow = rhosatav(nz-1)