Changeset 9174


Ignore:
Timestamp:
2018-01-03T16:47:34+01:00 (3 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.