Changeset 3509 for trunk/LMDZ.COMMON/libf/dyn3d_common/dynredem_mod.F90

Timestamp:

Nov 8, 2024, 4:59:55 PM (2 weeks ago)

Author:

jbclement

Message:

Dynamic + Mars PCM:
Addition of the description for the 'controle' array in the "start.nc" and "startfi.nc" files. It is given by the variable 'controle_descriptor' whose the element 'controle_descriptor(i)' explains 'controle(i)'.
JBC

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/dynredem_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d_common/dynredem_mod.F90

@@ -4 +4 @@
                     NF90_REDEF, NF90_ENDDEF, NF90_PUT_VAR, &
                     NF90_PUT_ATT, NF90_GET_VAR, NF90_INQ_VARID, &
-                    NF90_DEF_VAR
+                    NF90_DEF_VAR, NF90_CHAR
   PRIVATE
   PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err
-  PUBLIC :: cre_var, get_var1, put_var1, put_var2, fil, modname, msg
+  PUBLIC :: cre_var, get_var1, put_var1, put_var2, put_char1, fil, modname, msg
   include "dimensions.h"
   include "paramet.h"
@@ -184 +184 @@
 !===============================================================================
 !
+SUBROUTINE put_char1(ncid,var,title,did,v,units)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,                    INTENT(IN) :: ncid
+  CHARACTER(LEN=*),           INTENT(IN) :: var, title
+  INTEGER,                    INTENT(IN) :: did(2)
+  CHARACTER(*),               INTENT(IN) :: v(:)
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: units
+!===============================================================================
+  CALL err(NF90_DEF_VAR(ncid,var,NF90_CHAR,did,nvarid),"inq",var)
+  IF(title/="")      CALL err(NF90_PUT_ATT(ncid,nvarid,"title",title),var)
+  IF(PRESENT(units)) CALL err(NF90_PUT_ATT(ncid,nvarid,"units",units),var)
+  CALL err(NF90_ENDDEF(ncid))
+  CALL err(NF90_PUT_VAR(ncid,nvarid,v),"put",var)
+  CALL err(NF90_REDEF(ncid))
+
+END SUBROUTINE put_char1
+!
+!===============================================================================
+
+
+!===============================================================================
+!
 FUNCTION msg(typ,nam)
 !