Changeset 73 for trunk/mesoscale/LMDZ.MARS.new/libf/phymars/physiq.F

Timestamp:

Feb 20, 2011, 12:20:51 PM (14 years ago)

Author:

aslmd

Message:

LMD_MM_MARS: corrections cycle de l'eau propagees a la nouvelle physique. + corrections readmeteo.F90 [version synchronisee precedemment n etait pas la plus a jour] + corrections api.F90 pour avoir cp, R comme GCM

File:

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

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

@@ -1324 +1324 @@
 
             !!!! waterice = q01, voir readmeteo.F90
-            call WRITEDIAGFI(ngridmx,'q01',noms(iq),
+            call WRITEDIAGFI(ngridmx,'q01',noms(igcm_h2o_ice),
      &                      'kg/kg',3,
      &                       zq(1:ngridmx,1:nlayermx,igcm_h2o_ice))
             !!!! watervapor = q02, voir readmeteo.F90
-            call WRITEDIAGFI(ngridmx,'q02',noms(iq),
+            call WRITEDIAGFI(ngridmx,'q02',noms(igcm_h2o_vap),
      &                      'kg/kg',3,
      &                       zq(1:ngridmx,1:nlayermx,igcm_h2o_vap))
-
-c            call WRITEDIAGFI(ngridmx,'qsurf'//str2,noms(iq),
-c     &                     'kg.m-2',2,qsurf(1,iq))
-
+            !!!! surface waterice qsurf02 (voir readmeteo)
+            call WRITEDIAGFI(ngridmx,'qsurf02','surface tracer',
+     &                      'kg.m-2',2,
+     &                       qsurf(1:ngridmx,igcm_h2o_ice))
 
 c             CALL WRITEDIAGFI(ngridmx,'mtot',