Changeset 4146 for LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F

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/leapfrog_loc.F (modified) (5 diffs, 1 prop)

LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F

@@ -42 +42 @@
        USE temps_mod, ONLY: itaufin,jD_ref,jH_ref,day_ini,
      &                        day_ref,start_time,dt
+       USE xios, ONLY: xios_update_calendar 
        
       IMPLICIT NONE
@@ -1618 +1619 @@
               ENDIF
 #endif
+
+
             ENDIF
 
@@ -1642 +1645 @@
              endif
 #endif
-            endif ! of if (leapf.or.(.not.leapf.and.(.not.forward)))
+             
+#ifdef CPP_XIOS
+              IF (ok_dyn_xios) THEN
+c$OMP MASTER
+                 CALL xios_update_calendar(itau)
+c$OMP END MASTER
+c$OMP BARRIER
+                 CALL writedyn_xios(vcov,
+     &                 ucov,teta,pk,phi,q,masse,ps,phis)
+              ENDIF
+#endif
+              
+          endif                 ! of if (leapf.or.(.not.leapf.and.(.not.forward)))
+
+
            ENDIF ! of IF(MOD(itau,iecri).EQ.0)
 
@@ -1773 +1790 @@
                ENDIF
 #endif
+               
+
               ENDIF ! of IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin)
 
@@ -1791 +1810 @@
               endif ! of if (ok_dyn_ins)
 #endif
-              ENDIF ! of IF(MOD(itau,iecri).EQ.0)
+
+#ifdef CPP_XIOS
+              IF (ok_dyn_xios) THEN
+c$OMP MASTER
+                 CALL xios_update_calendar(itau)
+c$OMP END MASTER
+c$OMP BARRIER
+                 CALL writedyn_xios(vcov,
+     &                 ucov,teta,pk,phi,q,masse,ps,phis)
+              ENDIF
+#endif
+              
+           ENDIF                ! of IF(MOD(itau,iecri).EQ.0)