New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 623 for trunk/NEMO/OPA_SRC/OBC – NEMO

Changeset 623 for trunk/NEMO/OPA_SRC/OBC


Ignore:
Timestamp:
2007-02-26T18:26:08+01:00 (17 years ago)
Author:
opalod
Message:

nemo_v2_bugfix_024:RB: Use of ctlopn for all files (except for dimg and coupled part)

Location:
trunk/NEMO/OPA_SRC/OBC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/OBC/obcdta.F90

    r591 r623  
    608608      !! * Local declarations 
    609609      INTEGER ::   ji, jj, jnic, jip         ! dummy loop indices 
    610       INTEGER ::   inum = 11                 ! temporary logical unit 
     610      INTEGER ::   inum                      ! temporary logical unit 
    611611      INTEGER ::   ip, ii, ij, iii, ijj 
    612612      INTEGER ::   kbsfstart 
    … …  
    673673 
    674674         IF( kt == nit000 .OR. kt <= kbsfstart )   THEN 
    675             OPEN(inum,file='obceastbsf.dta') 
     675            CALL ctlopn( inum, 'obceastbsf.dta', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   & 
     676               &         1, numout, .TRUE., 1 ) 
    676677            READ(inum,*) 
    677678            READ(inum,*) 
    … …  
    691692 
    692693         IF( kt == nit000 .OR. kt <= kbsfstart ) then 
    693             OPEN(inum,file='obcwestbsf.dta') 
     694            CALL ctlopn( inum, 'obcwestbsf.dta', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   & 
     695               &         1, numout, .TRUE., 1 ) 
    694696            READ(inum,*) 
    695697            READ(inum,*) 
    … …  
    709711 
    710712         IF( kt == nit000 .OR. kt <= kbsfstart )   THEN 
    711             OPEN(inum,file='obcsouthbsf.dta') 
     713            CALL ctlopn( inum, 'obcsouthbsf.dta', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   & 
     714               &         1, numout, .TRUE., 1 ) 
    712715            READ(inum,*) 
    713716            READ(inum,*) 
    … …  
    726729      IF( lpnorthobc)   THEN 
    727730         IF( kt == nit000 .OR. kt <= kbsfstart )   THEN 
    728             OPEN(inum,file='obcnorthbsf.dta') 
     731            CALL ctlopn( inum, 'obcnorthbsf.dta', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   & 
     732               &         1, numout, .TRUE., 1 ) 
    729733            READ(inum,*) 
    730734            READ(inum,*) 

  • trunk/NEMO/OPA_SRC/OBC/obcrst.F90

    r474 r623  
    6666 
    6767      !! * Local declarations 
    68       INTEGER ::   ji, jj, jk, ios 
    69       INTEGER ::   inum = 11          ! temporary logical unit 
     68      INTEGER ::   ji, jj, jk 
     69      INTEGER ::   inum               ! temporary logical unit 
    7070      INTEGER ::   ibloc, nreclo, jrec, jt, jb  
    7171      INTEGER ::   jfoe, jfow, ifon, ifos 
    … …  
    9696         ! 1.1 Open file 
    9797         ! ------------- 
    98          OPEN( UNIT   = inum,                 & 
    99                IOSTAT = ios,                  & 
    100                FILE   = 'restart.obc.output', & 
    101                ACCESS = 'DIRECT',             & 
    102                RECL   =  nreclo,              & 
    103                FORM   = 'UNFORMATTED' ) 
    104          IF( ios > 0 ) CALL ctl_stop( '        Pbm to OPEN the restart.obc.output file ' ) 
     98 
     99         CALL ctlopn( inum, 'restart.obc.output', 'UNKNOWN', 'UNFORMATTED', 'DIRECT',   & 
     100            &         nreclo, numout, .TRUE., 1 ) 
    105101  
    106102         ! 1.2 Write header 
    … …  
    352348      ! 0.1 Open files 
    353349      ! --------------- 
    354       OPEN( UNIT   =  inum,       & 
    355             IOSTAT =  ios,          & 
    356             FILE   = 'restart.obc', & 
    357             ACCESS = 'DIRECT',      & 
    358             RECL   =  nreclo,       & 
    359             FORM   = 'UNFORMATTED' ) 
    360       IF( ios > 0 ) CALL ctl_stop( '        Pbm to OPEN the restart.obc file ' ) 
     350      CALL ctlopn( inum, 'restart.obc.output', 'UNKNOWN', 'UNFORMATTED', 'DIRECT',   & 
     351         &         nreclo, numout, .TRUE., 1 ) 
    361352 
    362353      ! 1. Read 
Note: See TracChangeset for help on using the changeset viewer.