Changeset 1984 for trunk/LMDZ.TITAN/libf/phytitan
- Timestamp:
- Aug 2, 2018, 10:59:42 AM (6 years ago)
- Location:
- trunk/LMDZ.TITAN/libf/phytitan
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.TITAN/libf/phytitan/dyn1d/rcm1d.F
r1908 r1984 127 127 LOGICAL findprof 128 128 129 ! added by AS to avoid the use of adv trac common130 character*20,allocatable :: nametrac(:) ! name of the tracer (no need for adv trac common)131 132 129 real :: latitude(1), longitude(1), cell_area(1) 133 130 -
trunk/LMDZ.TITAN/libf/phytitan/inimufi.F90
r1947 r1984 32 32 33 33 integer :: i,idx 34 character(len= 20), dimension(4), parameter :: aernames = &34 character(len=30), dimension(4), parameter :: aernames = & 35 35 (/"mu_m0as ", "mu_m3as ", & 36 36 "mu_m0af ", "mu_m3af "/) 37 CHARACTER(len= 20), DIMENSION(2), PARAMETER :: ccnnames = &37 CHARACTER(len=30), DIMENSION(2), PARAMETER :: ccnnames = & 38 38 (/"mu_m0n ", "mu_m3n "/) 39 39 logical :: err -
trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90
r1967 r1984 172 172 integer,intent(in) :: nlayer ! Number of atmospheric layers. 173 173 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. 175 175 176 176 logical,intent(in) :: firstcall ! Signals first call to physics.
Note: See TracChangeset
for help on using the changeset viewer.