Changeset 2121 for trunk/LMDZ.GENERIC/libf

Timestamp:

Apr 3, 2019, 6:12:57 PM (6 years ago)

Author:

mlefevre

Message:

Fixed a bug in the tsurf computation for LES run

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

@@ -1090 +1090 @@
          end if !end of 'UseTurbDiff'
 
+         zdtsurf(1:ngrid)=zdtsurf(1:ngrid)+zdtsdif(1:ngrid)
+
          !!! this is always done, except for turbulence-resolving simulations
          if (.not. turb_resolved) then
@@ -1095 +1097 @@
            pdu(1:ngrid,1:nlayer)=pdu(1:ngrid,1:nlayer)+zdudif(1:ngrid,1:nlayer)
            pdt(1:ngrid,1:nlayer)=pdt(1:ngrid,1:nlayer)+zdtdif(1:ngrid,1:nlayer)
-           zdtsurf(1:ngrid)=zdtsurf(1:ngrid)+zdtsdif(1:ngrid)
          endif