Changeset 659

Timestamp:

2007-05-02T15:52:38+02:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_037:RB: dlete useless file (related to diagoff)

File:

• trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90

@@ -301 +301 @@
          &   .OR.       kindic <   0            &
          &   .OR. ( kt == 1 .AND. kindic > 0)  ) THEN
-       OPEN (14,FILE='datrj.out',FORM='FORMATTED', STATUS='UNKNOWN',POSITION='APPEND ')
-
-       IF( lwp) WRITE(14,'(f10.4,1x,i8)') adatrj, ndastp
-       CLOSE(14)
 
        IF( lwp) WRITE(numout,*)'Days since the begining of the run :',adatrj