Changeset 1633 for trunk/LMDZ.MARS/libf/phymars
- Timestamp:
- Nov 27, 2016, 1:26:02 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/tracer_mod.F90
r1621 r1633 101 101 ! set dimension and tracer names 102 102 nqmx=nq 103 #ifndef MESOSCALE104 103 allocate(noms(nq)) 105 104 do iq=1,nq … … 107 106 write(*,*) "tracer_mod names : ", trim(noms(iq)) 108 107 enddo 109 108 109 #ifndef MESOSCALE 110 110 ! check if tracers have 'old' names 111 111 count=0
Note: See TracChangeset
for help on using the changeset viewer.