Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/dyn1d/old_lmdz1d.f90

Timestamp:

Jul 28, 2025, 7:23:15 PM (6 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/dyn1d/old_lmdz1d.f90 (modified) (4 diffs)

LMDZ6/branches/contrails/libf/phylmd/dyn1d/old_lmdz1d.f90

@@ -5 +5 @@
       SUBROUTINE old_lmdz1d
 
-USE flux_arp_mod_h
+   USE flux_arp_mod_h
       USE compbl_mod_h
          USE clesphys_mod_h
       USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
+   USE phyetat0_get_mod, ONLY : phyetat0_get, phyetat0_srf
    USE phys_state_var_mod, ONLY : phys_state_var_init, phys_state_var_end, &
        clwcon, detr_therm, &
@@ -219 +220 @@
       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)
 !     real :: agesno(1,nbsrf)
@@ -267 +269 @@
 !                           <> 0, tendencies of forcing are not added
       INTEGER :: flag_inhib_forcing = 0
+      LOGICAL :: found
 
 !=====================================================================
@@ -821 +824 @@
 !       tsoil(1,11,1)=308.00
 !-----------------------------------------------------------------------
-        call pbl_surface_init(fder, snsrf, qsurfsrf, tsoil)
+  !GG
+  ! Sea ice
+  !IF (iflag_seaice == 2) THEN
+
+     hice(:)=1.0
+     tice(:)=ftsol(:,is_sic)
+     bilg_cumul(:)=0.0
+
+
+  !END IF
+  !GG
+        call pbl_surface_init(fder, snsrf, qsurfsrf, tsoil, hice, tice, bilg_cumul)
 
 !------------------ prepare limit conditions for limit.nc -----------------