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

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

@@ -156 +156 @@
   use tracer_mod, only: noms ! tracer names
   use nonoro_gwd_ran_mod, only: du_nonoro_gwd, dv_nonoro_gwd
+  use compute_dtau_mod, only: dtau
 
   implicit none
@@ -226 +227 @@
   call put_field("tauscaling","dust conversion factor",tauscaling,time)
 
+  if (dustinjection.gt.0) then
+    call put_field("dtau","dust opacity difference between GCM and scenario",&
+                   dtau,time)
+  endif
+
   if (calltherm) then
     call put_field("wstar","Max vertical velocity in thermals",wstar,time)