Changeset 5669 for LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90

Timestamp:

May 21, 2025, 2:48:11 PM (3 weeks ago)

Author:

Laurent Fairhead

Message:

Initialisation problem for 1D

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90

@@ -25 +25 @@
        ql_ancien, qs_ancien, qbs_ancien, cf_ancien, rvc_ancien, &
        prlw_ancien, prsw_ancien, prbsw_ancien, prw_ancien, &
-       u10m,v10m,ale_wake,ale_bl_stat, ratqs_inter_, &
-       hice, tice, bilg_cumul
+       u10m,v10m,ale_wake,ale_bl_stat, ratqs_inter_
 
 
@@ -183 +182 @@
       real :: run_off_lic_0(1)
       real :: fder(1),snsrf(1,nbsrf),qsurfsrf(1,nbsrf)
+      real :: hice(1), tice(1), bilg_cumul(1)
       real :: tsoil(1,nsoilmx,nbsrf)
       ! AM