Changeset 4638 for LMDZ6/trunk/libf/dyn3d_common

Timestamp:

Jul 21, 2023, 10:42:49 AM (18 months ago)

Author:

acozic

Message:

Add a fix to homogenize type_trac between lmdz and dynamico
LMDZ had lost the backward compatibility of type_trac in list form. This commit makes it possible again

File:

• LMDZ6/trunk/libf/dyn3d_common/infotrac.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

@@ -162 +162 @@
    TYPE(trac_type), POINTER             :: t1, t(:)
    INTEGER :: ierr
+   CHARACTER(LEN=maxlen),   ALLOCATABLE :: types_trac(:)  !--- Keyword for tracers type(s), parsed version
 
    CHARACTER(LEN=*), PARAMETER :: modname="init_infotrac"
@@ -175 +176 @@
    CALL msg('type_trac = "'//TRIM(type_trac)//'"', modname)
 
+   lerr=strParse(type_trac, '|', types_trac, n=nt)
+   IF (nt .GT. 1) THEN
+      IF (nt .GT. 2) CALL abort_gcm(modname, 'you need to modify type_trac, this version is not supported by lmdz', 1)
+      if (nt .EQ. 2) type_trac=types_trac(2)
+   ENDIF
+
+
+   
    !--- MESSAGE ABOUT THE CHOSEN CONFIGURATION
    msg1 = 'For type_trac = "'//TRIM(type_trac)//'":'