Changeset 9207


Ignore:
Timestamp:
2018-01-10T16:24:40+01:00 (3 years ago)
Author:
marc
Message:

Richard's GMED ticket 369: ensure code fails if subbasins file is not present

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

    r8638 r9207  
    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.