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

Timestamp:

Mar 20, 2020, 6:42:17 PM (5 years ago)

Author:

emillour

Message:

Mars GCM:
Save "dtau", the opacity difference between model and target dust scenario
in the restartfi.nc file so that we have 1+1=2 when running with dust
injection schemes.
EM

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

@@ -48 +48 @@
       use time_phylmdz_mod, only: init_time
       use co2cloud_mod, only: ini_co2cloud,end_co2cloud
+      use compute_dtau_mod, only: ini_compute_dtau_mod, &
+                                  end_compute_dtau_mod
       use rocketduststorm_mod, only: ini_rocketduststorm_mod, &
                                      end_rocketduststorm_mod
@@ -126 +128 @@
       call ini_co2cloud(ngrid,nlayer)
       
+      ! allocate arrays in "compute_dtau_mod":
+      call end_compute_dtau_mod
+      call ini_compute_dtau_mod(ngrid)
+
       ! allocate arrays in "rocketduststorm_mod":
       call end_rocketduststorm_mod