Changeset 4608 for LMDZ6/trunk/libf/dyn3dmem

Timestamp:

Jul 5, 2023, 12:03:42 PM (3 years ago)

Author:

acozic

Message:

Add of an output file containing mass flow when offline parameter is to "yes"
this file will be on horizontal grid with vertical level klev
When LMDZ is coupled to Inca, we don't call anymore the routine phystoken if offline=y

Anne Cozic

Location:

LMDZ6/trunk/libf/dyn3dmem

Files:

• conf_gcm.F90 (modified) (3 diffs)
• temps_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3dmem/conf_gcm.F90

@@ -25 +25 @@
   USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
                        alphax,alphay,taux,tauy
-  USE temps_mod, ONLY: calend, year_len
+  USE temps_mod, ONLY: calend, year_len, offline_time
 
   IMPLICIT NONE
@@ -628 +628 @@
 
      !Config  Key  = offline
-     !Config  Desc = Nouvelle eau liquide
+     !Config  Desc = ecriture des flux de masse
      !Config  Def  = n
-     !Config  Help = Permet de mettre en route la
-     !Config         nouvelle parametrisation de l'eau liquide !
+     !Config  Help = Permet de sortir les flux de masse sur la grille plev 
      offline = .FALSE.
      CALL getin('offline',offline)
+
+     !Config Key  = offline_time
+     !Config Desc =  Choix des frequences de stockage pour le offline
+     !Config Def  = 8
+     !Config Help = offline_time=12     ! stockage toutes les 2h=1jour/12
+     !Config Help = offline_time=8      ! stockage toutes les 3h=1jour/8
+     offline_time = 8
+     CALL getin('offline_time',offline_time)
+
      IF (offline .AND. adjust) THEN
         WRITE(lunout,*)  &
@@ -722 +730 @@
      write(lunout,*)' tauyy = ', tauyy
      write(lunout,*)' offline = ', offline
+     write(lunout,*)' offline_time = ', offline_time
      write(lunout,*)' type_trac = ', type_trac
      write(lunout,*)' ok_dynzon = ', ok_dynzon 

LMDZ6/trunk/libf/dyn3dmem/temps_mod.F90

@@ -19 +19 @@
   REAL      start_time
   CHARACTER (len=10) :: calend ! calendar type
+  INTEGER   offline_time ! offline frequency storage
 
   ! Additionnal Mars stuff: