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 9174 for branches/UKMO/dev_r5518_fix_subbasin_io/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90 – NEMO

Ignore:
Timestamp:
2018-01-03T16:47:34+01:00 (6 years ago)
Author:
frrh
Message:

Force a failure if subbasins file is not openened properly!

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_fix_subbasin_io/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

    r8638 r9174  
    497497 
    498498         IF( ln_subbas ) THEN                ! load sub-basin mask 
    499             CALL iom_open( 'subbasins', inum,  ldstop = .FALSE.  ) 
     499            CALL iom_open( 'subbasins', inum,  ldstop = .TRUE.  ) 
    500500            CALL iom_get( inum, jpdom_data, 'atlmsk', btmsk(:,:,2) )   ! Atlantic basin 
    501501            CALL iom_get( inum, jpdom_data, 'pacmsk', btmsk(:,:,3) )   ! Pacific  basin 
Note: See TracChangeset for help on using the changeset viewer.