Changeset 1292

Timestamp:

Jun 11, 2014, 12:49:43 PM (11 years ago)

Author:

aslmd

Message:

LMDZ.MARS. MESOSCALE only. modif to output tau_ice when clouds not radiatively active.

File:

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

trunk/LMDZ.MARS/libf/phymars/physiq.F

@@ -1921 +1921 @@
       ENDIF
       !state  real  TAU_ICE    ij   misc  1  -  h  "TAU_ICE"   "CLOUD OD at 825 cm-1 TES"        ""
-      comm_TAU_ICE(1:ngrid) = taucloudtes(1:ngrid)
+      if (activice) then
+        comm_TAU_ICE(1:ngrid) = taucloudtes(1:ngrid)
+      else
+        comm_TAU_ICE(1:ngrid) = tauTES(1:ngrid)
+      endif
       !state  real  RICE      ikj   misc  1  -  h  "RICE"      "ICE RADIUS"                      "m"
       comm_RICE(1:ngrid,1:nlayer) = rice(1:ngrid,1:nlayer)