Changeset 3706 for trunk/LMDZ.COMMON/libf/dyn3d_common

Timestamp:

Apr 2, 2025, 9:03:47 AM (4 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

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/dynredem.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      ", &