Changeset 550 for trunk

Timestamp:

Mar 1, 2012, 1:01:02 AM (13 years ago)

Author:

aslmd

Message:

LMDZ.MARS: minor commit. for mesoscale initializations (-DMESOINI) output ccn and ccnN.

File:

• trunk/LMDZ.MARS/libf/phymars/physiq.F (modified) (2 diffs)

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

@@ -1608 +1608 @@
        enddo
       enddo
+      !! TAU water ice as seen by TES
+      if (activice) tauTES = taucloudtes
 c AUTOMATICALLY GENERATED FROM REGISTRY
 #include "fill_save.inc"
@@ -1818 +1820 @@
 c     &                        'part/kg',3,pq(1,1,igcm_dust_number))
 #ifdef MESOINI
+             call WRITEDIAGFI(ngridmx,'dustq','Dust mass mr',
+     &                        'kg/kg',3,pq(1,1,igcm_dust_mass))
              call WRITEDIAGFI(ngridmx,'dustN','Dust number',
      &                        'part/kg',3,pq(1,1,igcm_dust_number))
+             call WRITEDIAGFI(ngridmx,'ccn','Nuclei mass mr',
+     &                        'kg/kg',3,pq(1,1,igcm_ccn_mass))
+             call WRITEDIAGFI(ngridmx,'ccnN','Nuclei number',
+     &                        'part/kg',3,pq(1,1,igcm_ccn_number))
 #endif
            else