Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DIA/diadimg.F90

    r719 r1057  
    104104    IF ( ln_dimgnnn  ) THEN 
    105105       WRITE(clname,'(a,a,i3.3)') TRIM(cd_name),'.',narea 
    106        OPEN (inum, FILE=clname, FORM='UNFORMATTED', ACCESS='DIRECT', RECL=irecl4 ) 
     106       CALL ctlopn(inum, clname,'UNKNOWN','UNFORMATTED','DIRECT',irecl4,numout,lwp,1) 
    107107       WRITE(inum,REC=1 ) clver, cd_text, irecl4, & 
    108108            &     jpi,jpj, klev, 1 , 1 ,            & 
     
    131131       !! Standard dimgproc (1 file per variable, all procs. write to this file ) 
    132132       !! * Open file 
    133        OPEN (inum, FILE=cd_name, FORM='UNFORMATTED', ACCESS='DIRECT', RECL=irecl4 ) 
     133       CALL ctlopn(inum, cd_name,'UNKNOWN','UNFORMATTED','DIRECT',irecl4,numout,lwp,1) 
    134134 
    135135       !! * Write header on record #1 
Note: See TracChangeset for help on using the changeset viewer.