Changeset 2494 for trunk/LMDZ.MARS/libf/phymars/watercloud_mod.F

Timestamp:

Apr 7, 2021, 3:16:53 PM (4 years ago)

Author:

cmathe

Message:

Mars GCM:
co2_ice as scatterer in radiative transfert. Need co2clouds and

activeco2ice .eqv. True. Files involved:

• aeropacity_mod.F
• callradite_mod.F
• physiq_mod.F
• updatereffrad_mod.F
• suaer.F90

• determine co2_ice density from temperature. Used in riceco2 computation.

Files involved:

• co2cloud.F90
• improvedco2clouds_mod.F90
• updaterad.F90
• updatereffrad_mod.F

• co2condens_mod4micro.F: variable initialization
• initracer.F: add nuiceco2_ref = 0.2
• phyredem.F: remove co2_ice from qsurf since co2_ice => co2ice
• watercloud_mod.F: tiny typo

CM

File:

• trunk/LMDZ.MARS/libf/phymars/watercloud_mod.F (modified) (1 diff)

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

@@ -681 +681 @@
      &      ,"kg/kg.s-1",3,pdqcloud(1:ngrid,1:nlay,
      &      igcm_ccn_mass)) 
-      call WRITEDIAGFI(ngrid,"pdqccnN2","pdqcloudccnN apres 
-     &      microphysique","nb/kg.s-1",3,pdqcloud(1:ngrid,1:nlay,
+      call WRITEDIAGFI(ngrid,"pdqccnN2","pdqcloudccnN apres "//
+     &      "microphysique","nb/kg.s-1",3,pdqcloud(1:ngrid,1:nlay,
      &      igcm_ccn_number))
-      call WRITEDIAGFI(ngrid,"pdqdust2", "pdqclouddust apres
-     &      microphysique","kg/kg.s-1",3,pdqcloud(1:ngrid,1:nlay,
+      call WRITEDIAGFI(ngrid,"pdqdust2", "pdqclouddust apres "//
+     &      "microphysique","kg/kg.s-1",3,pdqcloud(1:ngrid,1:nlay,
      &      igcm_dust_mass))
-      call WRITEDIAGFI(ngrid,"pdqdustN2", "pdqclouddustN apres
-     &      microphysique","nb/kg.s-1",3,pdqcloud(1:ngrid,1:nlay,
+      call WRITEDIAGFI(ngrid,"pdqdustN2", "pdqclouddustN apres "//
+     &      "microphysique","nb/kg.s-1",3,pdqcloud(1:ngrid,1:nlay,
      &      igcm_dust_number)) 
 c=======================================================================