Changeset 2384 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Jul 2, 2020, 3:42:25 PM (5 years ago)

Author:

cmathe

Message:

physiq_mod: writediagfi 0 => 1

File:

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

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

@@ -3721 +3721 @@
 
         ENDIF ! hdo
-
+      write(*,*)'ok'
       if (co2clouds) then
+       write(*,*)'i am here'
         call WRITEDIAGFI(ngrid,'mtotco2',
      &                   'total mass of CO2, including ice surf',
-     &                   'kg/m2',0,mtotco2)
+     &                   'kg/m2',1,mtotco2)
 
         call WRITEDIAGFI(ngrid,'vaptotco2',
      &                   'total mass of CO2 vapor',
-     &                   'kg/m2',0,vaptotco2)
+     &                   'kg/m2',1,vaptotco2)
 
         call WRITEDIAGFI(ngrid,'icetotco2',
      &                   'total mass of CO2 ice',
-     &                   'kg/m2',0,icetotco2)
+     &                   'kg/m2',1,icetotco2)
       end if
       co2totB = 0. ! added by C.M.
@@ -3747 +3748 @@
       call WRITEDIAGFI(ngrid,'co2conservation',
      &                   'Total CO2 mass conservation in physic',
-     &                   '%',0,(co2totA-co2totB)/co2totA)
+     &                   '%',1,(co2totA-co2totB)/co2totA)
       call test_vmr(pq(:,:,igcm_co2), pdq(:,:,igcm_co2), ptimestep,
      &               ngrid, nlayer, 'end physiq_mod')