Ignore:
Timestamp:
Aug 2, 2018, 10:59:42 AM (6 years ago)
Author:
jvatant
Message:

Follow-up of r1971 r1978 and r1980 on tracers name lenght.
--JVO

Location:
trunk/LMDZ.TITAN/libf/phytitan
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/rcm1d.F

    r1908 r1984  
    127127      LOGICAL findprof
    128128
    129 !     added by AS to avoid the use of adv trac common
    130       character*20,allocatable :: nametrac(:)   ! name of the tracer (no need for adv trac common)
    131 
    132129      real :: latitude(1), longitude(1), cell_area(1)
    133130
  • trunk/LMDZ.TITAN/libf/phytitan/inimufi.F90

    r1947 r1984  
    3232
    3333  integer :: i,idx
    34   character(len=20), dimension(4), parameter :: aernames = &
     34  character(len=30), dimension(4), parameter :: aernames = &
    3535     (/"mu_m0as              ", "mu_m3as              ",   &
    3636       "mu_m0af              ", "mu_m3af              "/)
    37   CHARACTER(len=20), DIMENSION(2), PARAMETER :: ccnnames = &
     37  CHARACTER(len=30), DIMENSION(2), PARAMETER :: ccnnames = &
    3838     (/"mu_m0n               ", "mu_m3n               "/)
    3939  logical :: err
  • trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

    r1967 r1984  
    172172      integer,intent(in) :: nlayer            ! Number of atmospheric layers.
    173173      integer,intent(in) :: nq                ! Number of tracers.
    174       character*20,intent(in) :: nametrac(nq) ! Names of the tracers taken from dynamics.
     174      character*30,intent(in) :: nametrac(nq) ! Names of the tracers taken from dynamics.
    175175     
    176176      logical,intent(in) :: firstcall ! Signals first call to physics.
Note: See TracChangeset for help on using the changeset viewer.