Changeset 2173 for trunk/LMDZ.MARS/libf

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

File:

• trunk/LMDZ.MARS/libf/phymars/nonoro_gwd_ran_mod.F90 (modified) (4 diffs)

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