Changeset 1984 for trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

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

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 (modified) (1 diff)

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.