Changeset 3148 for trunk/LMDZ.MARS

Timestamp:

Dec 6, 2023, 2:38:04 PM (12 months ago)

Author:

jbclement

Message:

Mars PCM:
Tiny fix from r3147 (Fortran fixed format).
JBC

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (1 diff)
• libf/phymars/physiq_mod.F (modified) (1 diff)

trunk/LMDZ.MARS/changelog.txt

@@ -4368 +4368 @@
 There are three tunable parameters that have been set up, as "nonoro_gwimixing_eff=0.1", "nonoro_gwimixing_eff1=0.1", "nonoro_gwimixing_vdl=1.5".
 Remember to use full-layers model configuration (64x48x73) when you try to call this scheme because we need to evaluate the saturation altitude of each monochromatic wave.
-More than ~75% of the waves saturated at altitude above 120 km. 
+More than ~75% of the waves saturated at altitude above 120 km.
 
 == 02/12/2023 == LL
 Bug fix in init_testphys and testphys. Index for water vapor and ice were not initialized
 (but used in testphys1d when atm_wat_profile > 0). It is fixed by calling
-initracer in init_testphys1d_mod.  
+initracer in init_testphys1d_mod.
 
 == 06/12/2023 == EM
 Minor fixes to ensure outputs of water cycle related variables are only
 computed and made if the water cycle is computed.
+
+== 06/12/2023 == JBC
+Tiny fix from r3147 (Fortran fixed format).
  

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

@@ -2671 +2671 @@
             if (water) then
              ! both water and dust contribute
-             fluxsurf_dir_dn_sw(ig) = flux_1AU/dist_sol/dist_sol*mu0(ig)*
+            fluxsurf_dir_dn_sw(ig) = flux_1AU/dist_sol/dist_sol*mu0(ig)*
      &                    exp(-(tau(ig,iaer_dust_doubleq)+
      &                          tau(ig,iaer_h2o_ice))/mu0(ig))
             else
              ! only dust contributes
-             fluxsurf_dir_dn_sw(ig) = flux_1AU/dist_sol/dist_sol*mu0(ig)*
+            fluxsurf_dir_dn_sw(ig) = flux_1AU/dist_sol/dist_sol*mu0(ig)*
      &                    exp(-(tau(ig,iaer_dust_doubleq))/mu0(ig))
             endif ! of if (water)