Changeset 2628 for trunk/LMDZ.MARS/libf/phymars/rocketduststorm_mod.F90

Timestamp:

Feb 28, 2022, 6:46:07 PM (3 years ago)

Author:

abierjon

Message:

Mars GCM:
Big changes on mountain top dust flows for GCM6:

• the scheme now activates only in grid meshes that contain a mountain among a hard-written list, instead of every meshes. This is done to prevent strong artificial reinjections of dust in places that don't present huge converging slopes enabling the concentration of dust (ex: Valles Marineris, Hellas). Topdust is now also detrained as soon as it leaves the column it originated from.
• the list of the 19 allowed mountains is used by the subroutine topmons_setup in module topmons_mod, to compute a logical array contains_mons(ngrid). alpha_hmons and hsummit are also set up once and for all by this subroutine, which is called in physiq_mod's firstcall.
• contains_mons, alpha_hmons and hsummit are now saved variables of the module surfdat_h, and are called as such and not as arguments in the subroutines using them.
• the logical flag "slpwind" and the comments in the code have also been updated to the new terminology "mountain top dust flows", accordingly to ticket #71. The new flag read in callphys.def is "topflows".

AB

File:

• trunk/LMDZ.MARS/libf/phymars/rocketduststorm_mod.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/rocketduststorm_mod.F90

@@ -30 +30 @@
                                  clearsky,totcloudfrac,                &
 !             input sub-grid scale topography
-                                 nohmons,alpha_hmons,                  &
+                                 nohmons,                              &
 !             output
                                  pdqrds,wrad,dsodust,dsords,dsotop,    &
@@ -81 +81 @@
       REAL,INTENT(OUT) :: dust_rad_adjust(ngrid)
       
-!     sbgrid scale water ice clouds
+!     subgrid scale water ice clouds
       logical, intent(in) :: clearsky
       real, intent(in) :: totcloudfrac(ngrid)
 
-!     sbgrid scale topography
+!     subgrid scale topography
       LOGICAL, INTENT(IN) :: nohmons
-      REAL, INTENT(IN) :: alpha_hmons(ngrid)   
  
 !--------------------------------------------------------
@@ -257 +256 @@
                  tau,aerosol,dsodust,tauscaling,dust_rad_adjust,       &
                  taucloudtes,rdust,rice,nuice,riceco2,nuiceco2,co2ice,rstormdust,rtopdust, &
-                 totstormfract,clearatm,dsords,dsotop,alpha_hmons,nohmons,&
+                 totstormfract,clearatm,dsords,dsotop,nohmons,&
                  clearsky,totcloudfrac)