Changeset 3111 for trunk/LMDZ.MARS/libf/phymars/conf_phys.F

Timestamp:

Nov 2, 2023, 6:24:46 PM (13 months ago)

Author:

llange

Message:

MARS PCM
1) Following r-3098, adding d_coeff in the OMPthreadprivate
2) Introduce a temporary "old_wsublimation_scheme": when set to true (by
default), the water frost sublimation is computed as usual. Else, it is
computed as rho Ch U (q-qsat) and not rho Cd U (q-qsat)
LL

File:

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

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

@@ -21 +21 @@
       use surfdat_h, only: albedo_h2o_cap,albedo_h2o_frost,
      &                     frost_albedo_threshold, inert_h2o_ice,
-     &                     frost_metam_threshold
+     &                     frost_metam_threshold,old_wsublimation_scheme
       use time_phylmdz_mod, only: ecritphy,day_step,iphysiq,ecritstart,
      &                            daysec,dtphys
@@ -890 +890 @@
      &            frost_albedo_threshold
 
+! TMP: old_wsublimation_scheme
+         write(*,*) "Old water sublimation scheme?"
+         old_wsublimation_scheme = .true.
+         call getin_p("old_wsublimation_scheme",old_wsublimation_scheme)
+         write(*,*) "old_wsublimation_scheme",old_wsublimation_scheme
+
 ! call Titus crocus line -- DEFAULT IS NONE
          write(*,*) "Titus crocus line ?"