Changeset 4608 for LMDZ6/trunk/libf/misc

Timestamp:

Jul 5, 2023, 12:03:42 PM (19 months 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

File:

• LMDZ6/trunk/libf/misc/wxios.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/misc/wxios.F90

@@ -183 +183 @@
       IMPLICIT NONE
 
-      TYPE(xios_fieldgroup) :: group_handle
+      TYPE(xios_fieldgroup) :: group_handle, philev_hdl
       TYPE(xios_field) :: child
       INTEGER :: k, iq
-      CHARACTER(len=12) :: nvar    
+      CHARACTER(len=12) :: nvar, name_phi    
       CHARACTER(LEN=maxlen) :: varname, dn
       CHARACTER(LEN=maxlen) :: unt
@@ -261 +261 @@
          CALL xios_add_child(group_handle, child, varname)
          CALL xios_set_attr(child, name=varname, unit=unt)
+      ENDDO
+      
+
+      ! group create for offline mass flow variables
+      CALL xios_get_handle("philev_grp", philev_hdl)
+
+      DO k=1,79
+         IF (k<10) THEN
+            WRITE(nvar,'(i1)') k
+         ELSE IF (k<100) THEN
+            WRITE(nvar,'(i2)') k
+         ELSE
+            WRITE(nvar,'(i3)') k
+         END IF
+         name_phi= "phi_lev"//TRIM(nvar)
+         CALL xios_add_child(philev_hdl, child, "phi_lev"//TRIM(nvar)) 
+         CALL xios_set_attr(child, name=trim(name_phi))
       ENDDO