Changeset 2159 for trunk/LMDZ.MARS/libf/phymars/compute_dtau_mod.F90

Timestamp:

Sep 12, 2019, 11:44:45 AM (5 years ago)

Author:

mvals

Message:

Mars GCM:

• Update of compute_dtau_mod.F90: dtau is calculated in function of the dust opacity given by the dust scenario the day after

MV

File:

• trunk/LMDZ.MARS/libf/phymars/compute_dtau_mod.F90 (modified) (1 diff)

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

@@ -56 +56 @@
         
         ! 1. Obtain tauref_scenario from dust scenario
-        zday_scenario=zday-modulo(zday,1.)
+        zday_scenario=zday-modulo(zday,1.) ! integer value of the day: the scenario opacity is measured at 14:00
+        zday_scenario=zday_scenario+1      ! opacity of the dust scenario is read the day after
         call read_dust_scenario(ngrid,nlayer,zday_scenario,pplev,       &
        &                        tauref_scenario)