Ignore:
Timestamp:
Nov 17, 2021, 12:06:46 PM (3 years ago)
Author:
Ehouarn Millour
Message:

Some fixes for phylmdiso:

  • serial advection scheme updated to match the ones in dyn3dmem
  • follow up on the changes in tracer name string length from r4005

EM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmdiso/infotrac_phy.F90

    r3940 r4007  
    4242
    4343! Name variables
    44   CHARACTER(len=20), ALLOCATABLE, DIMENSION(:), SAVE :: tname ! tracer short name for restart and diagnostics
    45   CHARACTER(len=23), ALLOCATABLE, DIMENSION(:), SAVE :: ttext ! tracer long name for diagnostics
     44  INTEGER,PARAMETER :: tname_lenmax=128
     45  CHARACTER(len=tname_lenmax), ALLOCATABLE, DIMENSION(:), SAVE :: tname ! tracer short name for restart and diagnostics
     46  CHARACTER(len=tname_lenmax+3), ALLOCATABLE, DIMENSION(:), SAVE :: ttext ! tracer long name for diagnostics
    4647!$OMP THREADPRIVATE(tname,ttext)
    4748
     
    138139    INTEGER,INTENT(IN) :: id_BIN01_strat_
    139140#endif
    140     CHARACTER(len=20),INTENT(IN) :: tname_(nqtot_) ! tracer short name for restart and diagnostics
    141     CHARACTER(len=23),INTENT(IN) :: ttext_(nqtot_) ! tracer long name for diagnostics
    142     CHARACTER(len=4),INTENT(IN) :: type_trac_
     141    CHARACTER(len=*),INTENT(IN) :: tname_(nqtot_) ! tracer short name for restart and diagnostics
     142    CHARACTER(len=*),INTENT(IN) :: ttext_(nqtot_) ! tracer long name for diagnostics
     143    CHARACTER(len=*),INTENT(IN) :: type_trac_
    143144    INTEGER,INTENT(IN) :: niadv_ (nqtot_) ! equivalent dyn / physique
    144145    INTEGER,INTENT(IN) :: conv_flg_(nbtr_)
    145146    INTEGER,INTENT(IN) :: pbl_flg_(nbtr_)
    146     CHARACTER(len=8),INTENT(IN) :: solsym_(nbtr_)
     147    CHARACTER(len=*),INTENT(IN) :: solsym_(nbtr_)
    147148    ! Isotopes:
    148149    INTEGER,INTENT(IN) :: nqfils_(nqtot_)
Note: See TracChangeset for help on using the changeset viewer.