Changeset 5018 for ICOSA_LMDZ/src/phylmd/interface_icosa_lmdz.F90

Timestamp:

Jul 5, 2024, 10:49:33 AM (4 months ago)

Author:

acozic

Message:

Add call to init_phystokenc to generate mass flux files for offline mode

File:

• ICOSA_LMDZ/src/phylmd/interface_icosa_lmdz.F90 (modified) (3 diffs)

ICOSA_LMDZ/src/phylmd/interface_icosa_lmdz.F90

@@ -226 +226 @@
    USE readTracFiles_mod, ONLY: delPhase
 !  USE phyaqua_mod, ONLY : iniaqua 
-   
+   USE phystokenc_mod, ONLY : init_phystokenc       !  use to generate mass flow files for offline mode 
   
   IMPLICIT NONE
@@ -281 +281 @@
    CHARACTER(LEN=3)      :: descrq(30)            !--- Advection scheme description tags
    logical, save :: first = .TRUE. 
+
+   LOGICAL :: offline
+   INTEGER :: offline_time
 
 
@@ -467 +470 @@
     CALL init_time_lmdz(annee_ref, day_ref, day_ini, start_time, int(ndays), physics_timestep)
 
+
+    ! Init Offline mode 
+    offline = .FALSE.
+    CALL getin('offline',offline)
+
+    !  Choosing storage frequencies for offline mass flow files  
+    !  offline_time=12    2h=1day/12
+    !  offline_time=8     3h=1day/8
+    offline_time = 8
+    CALL getin('offline_time',offline_time)
+
+    ! Copy over "offline" settings
+    ! Flag and number of time steps for flux calculation and output
+    CALL init_phystokenc(offline,int(day_length/(offline_time*physics_timestep)))
+
+    
 !  Additional initializations for aquaplanets
 !    CALL getin("iflag_phys",iflag_phys)