Changeset 2220 for trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.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/phys_state_var_init_mod.F90 (modified) (2 diffs)

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

@@ -54 +54 @@
       use watercloud_mod, only: ini_watercloud_mod, &
                                 end_watercloud_mod
+      use nonoro_gwd_ran_mod, only: ini_nonoro_gwd_ran, &
+                                    end_nonoro_gwd_ran
 
       IMPLICIT NONE
@@ -135 +137 @@
       call ini_watercloud_mod(ngrid,nlayer,nq)
 
+      ! allocate arrays in "nonoro_gwd_ran_mod"
+      call end_nonoro_gwd_ran
+      call ini_nonoro_gwd_ran(ngrid,nlayer)
+
+
       END SUBROUTINE phys_state_var_init