Changeset 2382 for trunk

Timestamp:

Jul 2, 2020, 3:42:21 PM (4 years ago)

Author:

cmathe

Message:

physiq_mod: line 658 misleading?

File:

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

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

@@ -656 +656 @@
          endif         
 
-         if(callnlte.and.nltemodel.eq.2) call nlte_setup
-         if(callnirco2.and.nircorr.eq.1) call NIR_leedat
-
+         if(callnlte.and.nltemodel.eq.2) then
+            call nlte_setup
+         end if
+         if(callnirco2.and.nircorr.eq.1) then
+          call NIR_leedat
+         end if
 
         IF (tracer.AND.water.AND.(ngrid.NE.1)) THEN
@@ -3736 +3739 @@
       ! co2clouds
       if (co2clouds) then
-        call WRITEDIAGFI(ngrid,'mtotco2',
-     &                   'total mass of CO2, including ice surf',
-     &                   'kg/m2',0,mtotco2)
-
-        call WRITEDIAGFI(ngrid,'vaptotco2',
-     &                   'total mass of CO2 vapor',
-     &                   'kg/m2',0,vaptotco2)
-
         call WRITEDIAGFI(ngrid,'zdtcloudco2',
      &                   'temperature variation of CO2 latent heat',
      &                   'K/s',3,zdtcloudco2)
-
-        call WRITEDIAGFI(ngrid,'icetotco2',
-     &                   'total mass of CO2 ice',
-     &                   'kg/m2',0,icetotco2)
       end if