Changeset 1982 for trunk/ICOSA_LMDZ/src/phyvenus

Timestamp:

Aug 1, 2018, 8:34:46 AM (6 years ago)

Author:

emillour

Message:

Dynamico interface:
Follow-up of having the possibility of tracer names up to 30 characters long.
EM

File:

• trunk/ICOSA_LMDZ/src/phyvenus/interface_icosa_lmdz.f90 (modified) (3 diffs)

trunk/ICOSA_LMDZ/src/phyvenus/interface_icosa_lmdz.f90

@@ -37 +37 @@
   INTEGER,SAVE :: nbp_phys_glo
   
-  CHARACTER(len=20),SAVE,ALLOCATABLE :: tname(:) ! tracer names
+  CHARACTER(len=30),SAVE,ALLOCATABLE :: tname(:) ! tracer names
   REAL,SAVE :: pday ! number of ellapsed sols since Ls=0
   REAL,SAVE :: ptime ! "universal time" as fraction of sol (e.g. 0.5 for noon)
@@ -75 +75 @@
   REAL(rstd) :: pseudoalt(llm)
 
-!  INTEGER :: run_length  
-!  INTEGER :: annee_ref  
-!  INTEGER :: day_ref    
-!  INTEGER :: day_ini    
-!  REAL    :: start_time 
-!  REAL    :: physics_timestep    
-
-
-!  INTEGER                       :: nqo, nbtr
-!  CHARACTER(len=4)              :: type_trac
-!  CHARACTER(len=20),ALLOCATABLE :: tname(:)    ! tracer short name for restart and diagnostics
-!  CHARACTER(len=23),ALLOCATABLE :: ttext(:)     ! tracer long name for diagnostics
-!  INTEGER,ALLOCATABLE           :: niadv(:)    ! equivalent dyn / physique
-!  INTEGER,ALLOCATABLE           :: conv_flg(:) ! conv_flg(it)=0 : convection desactivated for tracer number it 
-!  INTEGER,ALLOCATABLE           :: pbl_flg(:)  ! pbl_flg(it)=0  : boundary layer diffusion desactivaded for tracer number it 
-!  CHARACTER(len=8),ALLOCATABLE :: solsym(:)  ! tracer name from inca
-
-!  INTEGER :: iflag_phys    
   INTEGER :: nbp_phys, nbp_phys_glo
   
@@ -230 +212 @@
   INTEGER :: iflag_trac
   CHARACTER(len=4)              :: type_trac
-  CHARACTER(len=20),ALLOCATABLE :: tname(:)    ! tracer short name for restart and diagnostics
-  CHARACTER(len=23),ALLOCATABLE :: ttext(:)     ! tracer long name for diagnostics
+!  CHARACTER(len=30),ALLOCATABLE :: tname(:)    ! tracer short name for restart and diagnostics
+  CHARACTER(len=33),ALLOCATABLE :: ttext(:)     ! tracer long name for diagnostics
   TYPE(t_field),POINTER,SAVE    :: f_ind_cell_glo(:)