Changeset 825

Timestamp:

Oct 29, 2012, 5:11:06 PM (12 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC. corrected a bug which prevented restarts to be created when tracer is False.

File:

• trunk/LMDZ.GENERIC/libf/phystd/physdem1.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/physdem1.F

@@ -619 +619 @@
 
 c tracers
+
+      if (tracer) then
 
 ! Preliminary stuff: check if tracers follow old naming convention (qsurf01,
@@ -741 +743 @@
       ENDIF ! of IF(nq.GE.1)
 
+      endif ! of if tracer
+
 c close file
       ierr = NF_CLOSE(nid)