Changeset 1421 for LMDZ4/trunk/libf/dyn3d/dynetat0.F

Timestamp:

Jul 28, 2010, 3:28:42 PM (14 years ago)

Author:

jghattas

Message:

• Fixed problems with pseudo-vapor tracers.
• Removed variable nseuil. The transport with convection can be desactivated with the variable conv_flg instead of nseuil.

File:

• LMDZ4/trunk/libf/dyn3d/dynetat0.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3d/dynetat0.F

@@ -321 +321 @@
         ierr =  NF_INQ_VARID (nid, tname(iq), nvarid)
         IF (ierr .NE. NF_NOERR) THEN
-           write(lunout,*)"dynetat0: Le champ <"//tname(iq)//
+           write(lunout,*)"dynetat0: Le traceur <"//trim(tname(iq))//
      &                    "> est absent"
            write(lunout,*)"          Il est donc initialise a zero"