Changeset 1115


Ignore:
Timestamp:
Mar 4, 2009, 10:24:39 AM (16 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:
2 edited

Legend:

Unmodified
Added
Removed

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

    r1114 r1115  
    22! $Header$
    33!
    4       IF (config_inca == 'none') THEN
     4      IF (ecrit_tra>0. .AND. config_inca == 'none') THEN
    55c$OMP MASTER
    66         CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
    … …  
    121121         ndex = 0
    122122c$OMP END MASTER
    123       END IF
     123      END IF ! ecrit_tra>0. .AND. config_inca == 'none'

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

    r1114 r1115  
    33!
    44
    5       IF (config_inca == 'none') THEN
     5      IF (ecrit_tra>0. .AND. config_inca == 'none') THEN
    66      ndex = 0
    77      ndex2d = 0
    … …  
    7878       endif
    7979
    80        END IF
     80       END IF !ecrit_tra>0. .AND. config_inca == 'none'
    8181
    8282
Note: See TracChangeset for help on using the changeset viewer.