Changeset 1984 for trunk


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
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

    r1883 r1984  
    139139
    140140!     added by AS to avoid the use of adv trac common
    141       character*20,allocatable :: nametrac(:)   ! name of the tracer (no need for adv trac common)
    142       character*20,allocatable :: nametmp(:)   !
     141      character*30,allocatable :: nametmp(:)   !
    143142
    144143      real :: latitude(1), longitude(1), cell_area(1)

  • trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

    r1916 r1984  
    193193      integer,intent(in) :: nlayer            ! Number of atmospheric layers.
    194194      integer,intent(in) :: nq                ! Number of tracers.
    195       character*20,intent(in) :: nametrac(nq) ! Names of the tracers taken from dynamics.
     195      character*30,intent(in) :: nametrac(nq) ! Names of the tracers taken from dynamics.
    196196     
    197197      logical,intent(in) :: firstcall ! Signals first call to physics.

  • 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.