Changeset 2086 for LMDZ5/trunk/libf/dyn3d_common

Timestamp:

Jul 9, 2014, 11:19:07 PM (10 years ago)

Author:

fhourdin

Message:

nclusion de la thermodynamique de la glace
Ice thermodynamics
(Catherine Rio)

File:

• LMDZ5/trunk/libf/dyn3d_common/infotrac.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d_common/infotrac.F90

@@ -5 +5 @@
 ! nqtot : total number of tracers and higher order of moment, water vapor and liquid included
   INTEGER, SAVE :: nqtot
+!CR: on ajoute le nombre de traceurs de l eau
+  INTEGER, SAVE :: nqo
 
 ! nbtr : number of tracers not including higher order of moment or water vapor or liquid
@@ -228 +230 @@
          endif ! of if (planet_type=="earth")
        END IF
+
+!CR: nombre de traceurs de l eau
+       if (tnom_0(3) == 'H2Oi') then
+          nqo=3
+       else
+          nqo=2
+       endif
        
        WRITE(lunout,*) trim(modname),': Valeur de traceur.def :'