Changeset 3637 for trunk/LMDZ.COMMON/libf/dyn3dpar

Timestamp:

Feb 20, 2025, 5:51:07 PM (5 months ago)

Author:

jbclement

Message:

Generic:
Small adjustments for the description of the 'controle' array in the "start.nc" file.
JBC

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/dynredem_p.F90 (modified) (5 diffs)

trunk/LMDZ.COMMON/libf/dyn3dpar/dynredem_p.F90

@@ -88 +88 @@
       ! Titan inherited Earth-like start files with idecal=5
       write(lunout,*) trim(modname),' : Titan start file'
-      ldscrpt = 32
     else
       write(lunout,*) trim(modname),' : Earth-like start file'
-      ldscrpt = 32
     endif
     idecal = 5
+    ldscrpt = 32
   endif
 
@@ -135 +134 @@
   tab_cntrl(idecal+17)  = grossismx
   tab_cntrl(idecal+18)  = grossismy
-  dscrpt_tab_cntrl(idecal + 1:idecal + 18) = (/     &
-      int2fmtstr(idecal + 1)//" Radius of the planet                 ", &
-      int2fmtstr(idecal + 2)//" Rotation of the planet (rad/s)       ", &
-      int2fmtstr(idecal + 3)//" Gravity (m/s2)                       ", &
-      int2fmtstr(idecal + 4)//" Specific heat Cp (J.kg-1.K-1)        ", &
-      int2fmtstr(idecal + 5)//" = r/Cp (=kappa)                      ", &
-      int2fmtstr(idecal + 6)//" Lenght of a sol (s)                  ", &
-      int2fmtstr(idecal + 7)//" Dynamical time step (s)              ", &
-      int2fmtstr(idecal + 8)//" Total energy                         ", &
-      int2fmtstr(idecal + 9)//" Total pressure                       ", &
+  dscrpt_tab_cntrl(idecal + 1:idecal + 18) = (/                          &
+      int2fmtstr(idecal + 1)// " Radius of the planet                 ", &
+      int2fmtstr(idecal + 2)// " Rotation of the planet (rad/s)       ", &
+      int2fmtstr(idecal + 3)// " Gravity (m/s2)                       ", &
+      int2fmtstr(idecal + 4)// " Specific heat Cp (J.kg-1.K-1)        ", &
+      int2fmtstr(idecal + 5)// " = r/Cp (=kappa)                      ", &
+      int2fmtstr(idecal + 6)// " Lenght of a sol (s)                  ", &
+      int2fmtstr(idecal + 7)// " Dynamical time step (s)              ", &
+      int2fmtstr(idecal + 8)// " Total energy                         ", &
+      int2fmtstr(idecal + 9)// " Total pressure                       ", &
       int2fmtstr(idecal + 10)//" Total enstrophy                      ", &
       int2fmtstr(idecal + 11)//" Total enthalpy                       ", &
@@ -162 +161 @@
     tab_cntrl(idecal+23) = taux
     tab_cntrl(idecal+24) = tauy
-    dscrpt_tab_cntrl(idecal + 19:idecal + 24) = (/  &
+    dscrpt_tab_cntrl(idecal + 19:idecal + 24) = (/                       &
       int2fmtstr(idecal + 19)//" 1.                                   ", &
       int2fmtstr(idecal + 20)//" Extention (in longitude) of zoom     ", &
@@ -177 +176 @@
     tab_cntrl(idecal+24) = 0.
     IF( ysinus )  tab_cntrl(idecal+22) = 1.
-    dscrpt_tab_cntrl(idecal + 19:idecal + 24) = (/  &
+    dscrpt_tab_cntrl(idecal + 19:idecal + 24) = (/                       &
       int2fmtstr(idecal + 19)//" -                                    ", &
       int2fmtstr(idecal + 20)//" Extention (in longitude) of zoom     ", &
@@ -200 +199 @@
 !    tab_cntrl(29)=hour_ini
     tab_cntrl(29)=0
+    dscrpt_tab_cntrl(29) = "(29) 0                                    "
   endif