Changeset 895 for trunk/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2008-04-21T17:32:02+02:00 (16 years ago)

Author:

rblod

Message:

Fix small bugs in sea-ice (previous commit) and old flyspray: 189, 185, 161

File:

• trunk/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DIA/diawri.F90

@@ -169 +169 @@
 
          ! WRITE root name in date.file for use by postpro
-         CALL dia_nam( clhstnam, nwrite,' ' )
-         clname = 'date.file'
-         CALL ctlopn( inum, clname,  'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, 1 )
-         WRITE(inum,*) clhstnam
-         CLOSE(inum)
+         IF( lwp) THEN
+            CALL dia_nam( clhstnam, nwrite,' ' )
+            clname = 'date.file'
+            CALL ctlopn( inum, clname,  'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, 1 )
+            WRITE(inum,*) clhstnam
+            CLOSE(inum)
+         ENDIF
 
          ! Define the T grid FILE ( nid_T )