Changeset 3441 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Sep 26, 2024, 10:37:03 AM (2 months ago)

Author:

mmaurice

Message:

Generic PCM:

Minor bug fix: add tice to rcm1d (missing in 3397)

MM

File:

• trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

@@ -138 +138 @@
       real rnat(1)
       REAL tslab(1,2),tsea_ice(1),sea_ice(1)
+      real tice(1)
       real pctsrf_sic(1)
 
@@ -929 +930 @@
       tslab(1,2)=tsurf(1)
       tsea_ice=tsurf
+      tice=0.
       pctsrf_sic=0.
       sea_ice=0.
@@ -960 +962 @@
      &                tsurf,tsoil,emis,albedo,q2,qsurf,
      &                cloudfrac,totcloudfrac,hice, 
-     &                rnat,pctsrf_sic,tslab,tsea_ice,sea_ice)
+     &                rnat,pctsrf_sic,tslab,tsea_ice,tice,sea_ice)
 
 c=======================================================================