Changeset 4551

Timestamp:

May 28, 2023, 8:35:02 AM (19 months ago)

Author:

fhourdin

Message:

Correction des dernieres commissions

Location:

LMDZ6/trunk/libf/phylmd

Files:

• phyetat0_mod.F90 (modified) (3 diffs)
• phyredem.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phyetat0_mod.F90

@@ -303 +303 @@
 !===================================================================
 
-   if ( iflag_physiq == 1 ) then
+   if ( iflag_physiq <= 1 ) then
 !===================================================================
   ! Lecture des temperatures du sol profond:
@@ -379 +379 @@
   ENDIF
 
-  endif ! iflag_physiq == 1
+  endif ! iflag_physiq <= 1
 
   ! Lecture de l'age de la neige:
@@ -598 +598 @@
   ! Initialize module pbl_surface_mod 
 
-  if ( iflag_physiq == 1 ) then
+  if ( iflag_physiq <= 1 ) then
   CALL pbl_surface_init(fder, snow, qsurf, tsoil)
   endif

LMDZ6/trunk/libf/phylmd/phyredem.F90

@@ -76 +76 @@
   ! Get variables which will be written to restart file from module 
   ! pbl_surface_mod
-  if ( iflag_physiq == 1 ) then
+  if ( iflag_physiq <= 1 ) then
      CALL pbl_surface_final(fder, snow, qsurf,  tsoil)
   endif