Changeset 91 for trunk/mesoscale/LMDZ.MARS.new/libf

Timestamp:

Mar 8, 2011, 5:59:28 PM (14 years ago)

Author:

aslmd

Message:

mars: test outliers [dans initracer.F, commente] LMD_MM_MARS: modifications mineures [retrocompatibilite ancienne physique, callphys.def test pour nouvelle physique] PLOT: generalisation de la routine map_uvt pour pouvoir tracer des figures en projection polaire complete

File:

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

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

@@ -1338 +1338 @@
      &                       qsurf(1:ngridmx,igcm_h2o_ice))
 
-c             CALL WRITEDIAGFI(ngridmx,'mtot',
-c     &                       'total mass of water vapor',
-c     &                       'kg/m2',2,mtot)
-c             CALL WRITEDIAGFI(ngridmx,'icetot',
-c     &                       'total mass of water ice',
-c     &                       'kg/m2',2,icetot)
+             CALL WRITEDIAGFI(ngridmx,'mtot',
+     &                       'total mass of water vapor',
+     &                       'kg/m2',2,mtot)
+             CALL WRITEDIAGFI(ngridmx,'icetot',
+     &                       'total mass of water ice',
+     &                       'kg/m2',2,icetot)
 cc            vmr=zq(1:ngridmx,1:nlayermx,igcm_h2o_ice)
 cc    &                *mugaz/mmol(igcm_h2o_ice)