Changeset 1984 for trunk/LMDZ.GENERIC/libf

Timestamp:

Aug 2, 2018, 10:59:42 AM (7 years ago)

Author:

jvatant

Message:

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

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• dyn1d/rcm1d.F (modified) (1 diff)
• physiq_mod.F90 (modified) (1 diff)

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

@@ -139 +139 @@
 
 !     added by AS to avoid the use of adv trac common
-      character*20,allocatable :: nametrac(:)   ! name of the tracer (no need for adv trac common)
-      character*20,allocatable :: nametmp(:)   !
+      character*30,allocatable :: nametmp(:)   !
 
       real :: latitude(1), longitude(1), cell_area(1)

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

@@ -193 +193 @@
       integer,intent(in) :: nlayer            ! Number of atmospheric layers.
       integer,intent(in) :: nq                ! Number of tracers.
-      character*20,intent(in) :: nametrac(nq) ! Names of the tracers taken from dynamics.
+      character*30,intent(in) :: nametrac(nq) ! Names of the tracers taken from dynamics.
       
       logical,intent(in) :: firstcall ! Signals first call to physics.