Changeset 1115

Timestamp:

Mar 4, 2009, 10:24:39 AM (15 years ago)

Author:

jghattas

Message:

Si ecrit_tra=0, pas de creation ou ecriture de la fichier histrac.nc

JG

Location:

LMDZ4/branches/LMDZ4-dev/libf/phylmd

Files:

• ini_histrac.h (modified) (2 diffs)
• write_histrac.h (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/ini_histrac.h

@@ -2 +2 @@
 ! $Header$
 !
-      IF (config_inca == 'none') THEN
+      IF (ecrit_tra>0. .AND. config_inca == 'none') THEN
 c$OMP MASTER 
          CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
@@ -121 +121 @@
          ndex = 0
 c$OMP END MASTER
-      END IF
+      END IF ! ecrit_tra>0. .AND. config_inca == 'none'

LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histrac.h

@@ -3 +3 @@
 !
 
-      IF (config_inca == 'none') THEN
+      IF (ecrit_tra>0. .AND. config_inca == 'none') THEN
       ndex = 0
       ndex2d = 0
@@ -78 +78 @@
        endif
 
-       END IF
+       END IF !ecrit_tra>0. .AND. config_inca == 'none'