Changeset 1570 for LMDZ5/trunk/libf/phylmd/ini_histrac.h

Timestamp:

Sep 2, 2011, 7:10:46 PM (13 years ago)

Author:

jghattas

Message:

• Added argument in call to histwrite_phy according to commit 1539.

File:

• LMDZ5/trunk/libf/phylmd/ini_histrac.h (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/ini_histrac.h

@@ -2 +2 @@
 ! $Id $
 !
-  IF (ecrit_tra>0. .AND. config_inca == 'none') THEN
+  IF (ecrit_tra>0.) THEN
 !$OMP MASTER 
      CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
@@ -124 +124 @@
      CALL histend(nid_tra)
 !$OMP END MASTER
-  END IF ! ecrit_tra>0. .AND. config_inca == 'none'
+  END IF ! ecrit_tra>0.