Changeset 4146 for LMDZ6/trunk/libf/dyn3dmem/conf_gcm.F90

Timestamp:

May 10, 2022, 6:50:43 PM (2 years ago)

Author:

Laurent Fairhead

Message:

Source code and xml files needed for XIOS output in the LMDZ LonLat? dynamical core.
One flag controls everything: ok_dyn_xios. Parameters controlling outputs need to be put in the xml
files, nothing is set in the code
Work to follow on the dynzon file and the modipsl/libIGCM framework.
ok_dyn_xios = n should not change anything

File:

• LMDZ6/trunk/libf/dyn3dmem/conf_gcm.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/dyn3dmem/conf_gcm.F90

@@ -678 +678 @@
      ok_dyn_ave = .FALSE. 
      CALL getin('ok_dyn_ave',ok_dyn_ave) 
+
+     !Config  Key  = ok_dyn_xios
+     !Config  Desc = sorties moyennes dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_xios = .FALSE. 
+     CALL getin('ok_dyn_xios',ok_dyn_xios) 
 
      write(lunout,*)' #########################################'
@@ -721 +729 @@
      write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
      write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
+     write(lunout,*)' ok_dyn_xios = ', ok_dyn_xios 
   else
      !Config  Key  = clon
@@ -880 +889 @@
      ok_dyn_ave = .FALSE. 
      CALL getin('ok_dyn_ave',ok_dyn_ave) 
+
+     !Config  Key  = ok_dyn_xios
+     !Config  Desc = sorties moyennes dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_xios = .FALSE. 
+     CALL getin('ok_dyn_xios',ok_dyn_xios) 
 
      !Config  Key  = use_filtre_fft
@@ -993 +1010 @@
      write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
      write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
+     write(lunout,*)' ok_dyn_xios = ', ok_dyn_xios 
      write(lunout,*)' use_filtre_fft = ', use_filtre_fft
      write(lunout,*)' use_mpi_alloc = ', use_mpi_alloc