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

Timestamp:

Sep 19, 2025, 2:53:16 PM (4 months ago)

Author:

jbclement

Message:

Mars PCM 1D:

• "profile.F" is transformed into a module "profile_temp_mod.F90" with F90 format. The file "profile" where the temperature is read is renamed into "profile_temp" to avoid any confusion.
• Small corrections and improvements throughout the code and scripts in the deftank.

JBC

File:

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

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

@@ -696 +696 @@
 #ifndef MESOSCALE
 c=======================================================================
-      call write_output("watercloud_pdqh2oice","pdqcloud_h2o_ice "//
-     &   "after microphysics","kg/kg.s-1",pdqcloud(:,:,igcm_h2o_ice))
-      call write_output("watercloud_pdqh2ovap","pdqcloud_h2o_vap "//
-     &   "after microphysics","kg/kg.s-1",pdqcloud(:,:,igcm_h2o_vap))
-      if (hdo) then
-        call write_output("watercloud_pdqhdoice","pdqcloud_hdo_ice "//
-     &     "after microphysics","kg/kg.s-1",pdqcloud(:,:,igcm_hdo_ice))
-        call write_output("watercloud_pdqhdovap","pdqcloud_hdo_vap "//
-     &     "after microphysics","kg/kg.s-1",pdqcloud(:,:,igcm_hdo_vap))
-      endif
 !      call write_output("pdqccn2","pdqcloudccn apres microphysique"
 !     &      ,"kg/kg.s-1",pdqcloud(:,:,