Changeset 3441


Ignore:
Timestamp:
Sep 26, 2024, 10:37:03 AM (8 weeks ago)
Author:
mmaurice
Message:

Generic PCM:

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

MM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3335 r3441  
    138138      real rnat(1)
    139139      REAL tslab(1,2),tsea_ice(1),sea_ice(1)
     140      real tice(1)
    140141      real pctsrf_sic(1)
    141142
    … …  
    929930      tslab(1,2)=tsurf(1)
    930931      tsea_ice=tsurf
     932      tice=0.
    931933      pctsrf_sic=0.
    932934      sea_ice=0.
    … …  
    960962     &                tsurf,tsoil,emis,albedo,q2,qsurf,
    961963     &                cloudfrac,totcloudfrac,hice,
    962      &                rnat,pctsrf_sic,tslab,tsea_ice,sea_ice)
     964     &                rnat,pctsrf_sic,tslab,tsea_ice,tice,sea_ice)
    963965
    964966c=======================================================================
Note: See TracChangeset for help on using the changeset viewer.