Changeset 3603 for trunk/LMDZ.COMMON/libf/evolution/writediagpem.F90

Timestamp:

Jan 28, 2025, 5:16:15 PM (2 days ago)

Author:

jbclement

Message:

PEM:

• Bug correction about the pressure/teta reconstruction for the PCM (mismatch between the physical and dynamical grid).
• Improvement of messages giving info about the PEM workflow in the terminal.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/writediagpem.F90 (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/evolution/writediagpem.F90

@@ -824 +824 @@
     ierr=NF_INQ_DIMID(nid,"time",id(4))
     ! Tell the world about it
-    write(*,*) "====================="
-    write(*,*) "writediagsoilpem: creating variable "//trim(name)
+    write(*,*) "==========================="
+    write(*,*) "DIAGSOILPEM: creating variable "//trim(name)
     call def_var(nid,name,title,units,4,id,varid,ierr)
   endif ! of if (ierr.ne.NF_NOERR)
@@ -908 +908 @@
     ierr=NF_INQ_DIMID(nid,"time",id(3))
     ! Tell the world about it
-    write(*,*) "====================="
-    write(*,*) "writediagsoilpem: creating variable "//trim(name)
+    write(*,*) "==========================="
+    write(*,*) "DIAGSOILPEM: creating variable "//trim(name)
     call def_var(nid,name,title,units,3,id,varid,ierr)
   endif ! of if (ierr.ne.NF_NOERR)
@@ -959 +959 @@
     ierr=NF_INQ_DIMID(nid,"time",id(1))
     ! Tell the world about it
-    write(*,*) "====================="
-    write(*,*) "writediagsoilpem: creating variable "//trim(name)
+    write(*,*) "==========================="
+    write(*,*) "DIAGSOILPEM: creating variable "//trim(name)
     call def_var(nid,name,title,units,1,id,varid,ierr)
   endif ! of if (ierr.ne.NF_NOERR)