Changeset 3766 for LMDZ6/branches/Ocean_skin/libf/phylmd

Timestamp:

Jul 17, 2020, 6:24:14 PM (4 years ago)

Author:

lguez

Message:

Bug fix: read before close_startphy

Bug fix: in procedure phyetat0, read s_int, delta_sst, ds_ns and
dt_ns before the call to close_startphy.

File:

• LMDZ6/branches/Ocean_skin/libf/phylmd/phyetat0.F90 (modified) (2 diffs)

LMDZ6/branches/Ocean_skin/libf/phylmd/phyetat0.F90

@@ -523 +523 @@
   ENDIF ! Slab        
 
-  ! on ferme le fichier
-  CALL close_startphy
-
-  ! Initialize module pbl_surface_mod 
-
-  CALL pbl_surface_init(fder, snow, qsurf, tsoil)
-
-  ! Initialize module ocean_cpl_mod for the case of coupled ocean
-  IF ( type_ocean == 'couple' ) THEN
-     CALL ocean_cpl_init(phys_tstep, longitude_deg, latitude_deg)
-  ENDIF
-
-!  CALL init_iophy_new(latitude_deg, longitude_deg)
-
-  ! Initilialize module fonte_neige_mod      
-  CALL fonte_neige_init(run_off_lic_0)
-
   if (activate_ocean_skin >= 1) then
      if (activate_ocean_skin == 2 .and. type_ocean == 'couple') then
@@ -560 +543 @@
   end if
 
+  ! on ferme le fichier
+  CALL close_startphy
+
+  ! Initialize module pbl_surface_mod 
+
+  CALL pbl_surface_init(fder, snow, qsurf, tsoil)
+
+  ! Initialize module ocean_cpl_mod for the case of coupled ocean
+  IF ( type_ocean == 'couple' ) THEN
+     CALL ocean_cpl_init(phys_tstep, longitude_deg, latitude_deg)
+  ENDIF
+
+!  CALL init_iophy_new(latitude_deg, longitude_deg)
+
+  ! Initilialize module fonte_neige_mod      
+  CALL fonte_neige_init(run_off_lic_0)
+
 END SUBROUTINE phyetat0