Changeset 481 for trunk/LMDZ.MARS/libf/phymars/physiq.F

Timestamp:

Dec 19, 2011, 6:54:32 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: corrected a bug with dust outputs through MESOINI in new physics. added mars=12 for scavenging runs (see r76).

File:

• trunk/LMDZ.MARS/libf/phymars/physiq.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/physiq.F

@@ -1754 +1754 @@
 c     &                        'part/kg',3,pq(1,1,igcm_dust_number))
 #ifdef MESOINI
+             call WRITEDIAGFI(ngridmx,'dustq','Dust mass mr',
+     &           'kg/kg',3,pq(1:ngridmx,1:nlayermx,igcm_dust_mass))
              call WRITEDIAGFI(ngridmx,'dustN','Dust number',
-     &                        'part/kg',3,pq(1,1,igcm_dust_number))
+     &           'part/kg',3,pq(1:ngridmx,1:nlayermx,igcm_dust_number))
 #endif
            else