Changeset 2919 for trunk/LMDZ.MARS/libf/phymars/soil.F

Timestamp:

Mar 22, 2023, 5:37:37 PM (2 years ago)

Author:

llange

Message:

PCM
Flux_geo is now correctled initialized (wasnot correctly read in the startfi) for the 3D and 1D
Minor fix in the pem (wrong name for a variable)
LL

File:

• trunk/LMDZ.MARS/libf/phymars/soil.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/soil.F

@@ -161 +161 @@
         beta(ig,nsoil-1,islope)=coefq(nsoil-1)*tsoil(ig,nsoil,islope)
      &      /(coefq(nsoil-1)+coefd(ig,nsoil-1,islope))
-     &      +flux_geo(ig)/(coefq(nsoil-1) + coefd(ig,nsoil-1,islope))
+     &      +flux_geo(ig,islope)/
+     &      (coefq(nsoil-1) + coefd(ig,nsoil-1,islope))
       enddo