Changeset 2220 for trunk/LMDZ.MARS/libf/phymars/phyredem.F90

Timestamp:

Jan 22, 2020, 11:41:33 AM (5 years ago)

Author:

dbardet

Message:

Update the nonorographic gravity waves drag parametrization (from the r3599 of Earth s model LMDZ6): 1) add east_ and west_gwdstress variables, 2) delete aleas function: random waves are producted by the MOD function, 3) reproductibility concerning the number of procs is now validated, 4) changing name of some variables like RUW, RVW, ZOP, ZOM,..., 5) tendency of winds due to GW drag are now module variables and written in restart files.

File:

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

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

@@ -24 +24 @@
   use comcstfi_h, only: g, mugaz, omeg, rad, rcp
   use time_phylmdz_mod, only: daysec
-
   implicit none
  
@@ -156 +155 @@
                       put_var, put_field
   use tracer_mod, only: noms ! tracer names
+  use nonoro_gwd_ran_mod, only: du_nonoro_gwd, dv_nonoro_gwd
 
   implicit none
@@ -263 +263 @@
      call put_field("mem_Mh2o_co2","H2O mass integred into CO2 crystal",mem_Mh2o_co2,time)
   endif
-  
+ 
+  ! Non-orographic gavity waves
+  if (calllott_nonoro) then
+     call put_field("du_nonoro_gwd","Zonal wind tendency due to GW",du_nonoro_gwd,time)
+     call put_field("dv_nonoro_gwd","Meridional wind tendency due to GW",dv_nonoro_gwd,time)
+  endif
   ! Close file
   call close_restartphy