Changeset 4146 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd/callphysiq_mod.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/dynphy_lonlat/phylmd/callphysiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/callphysiq_mod.F90

@@ -20 +20 @@
 
   USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
-  USE control_mod, ONLY: planet_type
+  USE control_mod, ONLY: planet_type, ok_dyn_xios
   USE physiq_mod, ONLY: physiq
+#ifdef CPP_XIOS
+  USE mod_xios_dyn3dmem, ONLY : dyn3d_ctx_handle
+  USE xios, ONLY : xios_set_current_context
+#endif
   IMPLICIT NONE
 
@@ -90 +94 @@
               zdpsrf_omp)
 
+! switching back to LMDZDYN context
+#ifdef CPP_XIOS
+!$OMP MASTER
+  if (ok_dyn_xios) then
+     CALL xios_set_current_context(dyn3d_ctx_handle)
+  endif
+!$OMP END MASTER
+#endif  
+
 
 END SUBROUTINE call_physiq