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 689 for trunk/NEMO/OPA_SRC/OBC – NEMO

Changeset 689 for trunk/NEMO/OPA_SRC/OBC


Ignore:
Timestamp:
2007-06-29T19:29:57+02:00 (17 years ago)
Author:
rblod
Message:

nemo_v2_bugfix_058:CT: make a better decomposition domain print in ocean.output file (i.e. from North to South)
nemo_v2_bugfix_059:CT: use lwp (instead hard-coded value .TRUE. ) as argument of ctlopn subroutine for clean outputs

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

Legend:

Unmodified
Added
Removed

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

    r623 r689  
    5252   !!--------------------------------------------------------------------------------- 
    5353   !!   OPA 9.0 , LODYC-IPSL  (2003) 
    54    !! $Header$ 
     54   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/OBC/obcdta.F90,v 1.14 2007/06/29 17:01:51 opalod Exp $ 
    5555   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    5656   !!--------------------------------------------------------------------------------- 
    … …  
    674674         IF( kt == nit000 .OR. kt <= kbsfstart )   THEN 
    675675            CALL ctlopn( inum, 'obceastbsf.dta', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   & 
    676                &         1, numout, .TRUE., 1 ) 
     676               &         1, numout, lwp, 1 ) 
    677677            READ(inum,*) 
    678678            READ(inum,*) 
    … …  
    693693         IF( kt == nit000 .OR. kt <= kbsfstart ) then 
    694694            CALL ctlopn( inum, 'obcwestbsf.dta', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   & 
    695                &         1, numout, .TRUE., 1 ) 
     695               &         1, numout, lwp, 1 ) 
    696696            READ(inum,*) 
    697697            READ(inum,*) 
    … …  
    712712         IF( kt == nit000 .OR. kt <= kbsfstart )   THEN 
    713713            CALL ctlopn( inum, 'obcsouthbsf.dta', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   & 
    714                &         1, numout, .TRUE., 1 ) 
     714               &         1, numout, lwp, 1 ) 
    715715            READ(inum,*) 
    716716            READ(inum,*) 
    … …  
    730730         IF( kt == nit000 .OR. kt <= kbsfstart )   THEN 
    731731            CALL ctlopn( inum, 'obcnorthbsf.dta', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   & 
    732                &         1, numout, .TRUE., 1 ) 
     732               &         1, numout, lwp, 1 ) 
    733733            READ(inum,*) 
    734734            READ(inum,*) 

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

    r623 r689  
    2626   !!--------------------------------------------------------------------------------- 
    2727   !!   OPA 9.0 , LOCEAN-IPSL (2005)  
    28    !! $Header$  
     28   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/OBC/obcrst.F90,v 1.8 2007/06/29 17:01:51 opalod Exp $  
    2929   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
    3030   !!--------------------------------------------------------------------------------- 
    … …  
    9898 
    9999         CALL ctlopn( inum, 'restart.obc.output', 'UNKNOWN', 'UNFORMATTED', 'DIRECT',   & 
    100             &         nreclo, numout, .TRUE., 1 ) 
     100            &         nreclo, numout, lwp, 1 ) 
    101101  
    102102         ! 1.2 Write header 
    … …  
    349349      ! --------------- 
    350350      CALL ctlopn( inum, 'restart.obc.output', 'UNKNOWN', 'UNFORMATTED', 'DIRECT',   & 
    351          &         nreclo, numout, .TRUE., 1 ) 
     351         &         nreclo, numout, lwp, 1 ) 
    352352 
    353353      ! 1. Read 
Note: See TracChangeset for help on using the changeset viewer.