Changeset 1057 for trunk/NEMO/OPA_SRC/DIA/diadimg.F90

Timestamp:

2008-06-04T20:44:44+02:00 (13 years ago)

Author:

rblod

Message:

ctlopn with dimg diagnostics and additonnal stuff related to dimg

File:

• trunk/NEMO/OPA_SRC/DIA/diadimg.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DIA/diadimg.F90

@@ -104 +104 @@
     IF ( ln_dimgnnn  ) THEN
        WRITE(clname,'(a,a,i3.3)') TRIM(cd_name),'.',narea
-       OPEN (inum, FILE=clname, FORM='UNFORMATTED', ACCESS='DIRECT', RECL=irecl4 )
+       CALL ctlopn(inum, clname,'UNKNOWN','UNFORMATTED','DIRECT',irecl4,numout,lwp,1)
        WRITE(inum,REC=1 ) clver, cd_text, irecl4, &
             &     jpi,jpj, klev, 1 , 1 ,            &
@@ -131 +131 @@
        !! Standard dimgproc (1 file per variable, all procs. write to this file )
        !! * Open file
-       OPEN (inum, FILE=cd_name, FORM='UNFORMATTED', ACCESS='DIRECT', RECL=irecl4 )
+       CALL ctlopn(inum, cd_name,'UNKNOWN','UNFORMATTED','DIRECT',irecl4,numout,lwp,1)
 
        !! * Write header on record #1