Changeset 1974 for trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90

Timestamp:

Jul 18, 2018, 4:48:34 PM (6 years ago)

Author:

mvals

Message:

Mars GCM:
Integration of the detached dust layer parametrizations (rocket dust storm, slope wind lifting, CW, and dust injection scheme, DB).
Still experimental, default behaviour (rdstorm=.false., dustinjection=0) identical to previous revision.
NB: Updated newstart requires an updated "surface.nc" containing the "hmons" field.
EM+MV

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

@@ -47 +47 @@
       use time_phylmdz_mod, only: init_time
       use co2cloud_mod, only: ini_co2cloud,end_co2cloud
+      use rocketduststorm_mod, only: ini_rocketduststorm_mod, &
+                                     end_rocketduststorm_mod
 
       IMPLICIT NONE
@@ -112 +114 @@
       call ini_co2cloud(ngrid,nlayer)
       
+      ! allocate arrays in "rocketduststorm_mod":
+      call end_rocketduststorm_mod
+      call ini_rocketduststorm_mod(ngrid)
+      
       END SUBROUTINE phys_state_var_init