Changeset 308 for trunk/LMDZ.MARS/libf/phymars/meso_inc

Timestamp:

Sep 26, 2011, 7:53:28 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: follow-up to previous commit.

File:

• trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_var.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_var.F

@@ -18 +18 @@
       INTEGER tracerset    !!! this corresponds to config%mars
       CHARACTER (len=20) :: wtnom(nqmx) ! tracer name
+
+      !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! JF 
+      REAL qsurfice_dust(ngridmx)     ! useful for dust diagnostics
+      REAL TAU_lay(ngridmx)           ! true opacity (it's not e reference life tauref)
+      REAL dsodust(ngridmx,nlayermx)
+      REAL zdqsdif_diag(ngridmx)      ! useful for lifting diagnostics                               
+      REAL zdqssed_diag(ngridmx)      ! useful for sedimentation diagnostics                         
+      REAL pdq_diag(ngridmx)          ! useful for dust perturbation diagnostics   
+      REAL dustot(ngridmx)            ! Total mass of dust integrated along vertical axe (kg/m2)
+      REAL zdqnorm(ngridmx,nlayermx,2)
+      !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! JF