Changeset 3706 for trunk/LMDZ.COMMON/libf

Timestamp:

Apr 2, 2025, 9:03:47 AM (3 months ago)

Author:

emillour

Message:

Common dynamics:
Add initialization of "dscrpt_tab_cntrl(:)" (strings of descriptors
incluede in restart.nc to describe contents of controle array) to
empty strings, since in some cases they are not filled.
EM

Location:

trunk/LMDZ.COMMON/libf

Files:

• dyn3d_common/dynredem.F90 (modified) (1 diff)
• dyn3dpar/dynredem_p.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d_common/dynredem.F90 ¶

@@ -96 +96 @@
   tab_cntrl(:)  = 0.
   allocate(dscrpt_tab_cntrl(ldscrpt))
+  !Initialize dscrpt_tab_cntrl(:) to empty strings
+  dscrpt_tab_cntrl(:)=""
+
   dscrpt_tab_cntrl(1:5) = (/                        &
       "(1)  Number of nodes along longitude      ", &

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

@@ -97 +97 @@
   tab_cntrl(:)  = 0.
   allocate(dscrpt_tab_cntrl(ldscrpt))
+  !Initialize dscrpt_tab_cntrl(:) to empty strings
+  dscrpt_tab_cntrl(:)=""
+
   dscrpt_tab_cntrl(1:5) = (/                        &
       "(1)  Number of nodes along longitude      ", &