Changeset 2173

Timestamp:

Nov 5, 2019, 10:44:00 AM (5 years ago)

Author:

emillour

Message:

Mars GCM:
Update non orographic GW routine so that key parameter RUWMAX is read in
from callphys.def
EM

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/nonoro_gwd_ran_mod.F90 (modified) (4 diffs)

trunk/LMDZ.MARS/README

@@ -2771 +2771 @@
 == 22/10/2019 == MV
 Add z2sig.def.hr to "deftank" corresponding to the high vertical resolution with 177 levels from the surface to the exobase.  
+
+== 05/11/2019 == EM
+Update non orographic GW routine so that key parameter RUWMAX is read in
+from callphys.def

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

@@ -28 +28 @@
       use comcstfi_h, only: g, pi, cpp, r
 !      use comgeomfi_h, only: latitude
+      USE ioipsl_getin_p_mod, ONLY : getin_p
       implicit none
 
@@ -92 +93 @@
 
     REAL RUW0(NW, KLON) ! Fluxes at launching level
-    REAL RUWMAX         ! Max value
+    REAL,SAVE :: RUWMAX         ! Max value
     INTEGER LAUNCH      ! Launching altitude
     REAL XLAUNCH        ! Control the launching altitude
@@ -139 +140 @@
         d_u_sav(:,:) = 0.
         d_v_sav(:,:) = 0.
+        RUWMAX=1.E-4
+        CALL getin_p("nonoro_gwd_RUWMAX",RUWMAX)
+        write(*,*) "nonoro_gwd_ran: RUWMAX=",RUWMAX
         firstcall=.false.
       ENDIF
@@ -150 +154 @@
 
     !  PARAMETERS CORRESPONDING TO V3:
-     RUWMAX  = 1.e-4      ! best-case for MCS comparison
+!     RUWMAX  = 1.e-4      ! best-case for MCS comparison
+!      RUWMAX = 5.e-6
 !     RUWMAX  = 1.e-3