Ignore:
Timestamp:
2018-05-16T09:39:44+02:00 (2 years ago)
Author:
jamesharle
Message:

Correction for missing code handling bdytmask (see ticket #2084)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/DOM/dommsk.F90

    r9598 r9600  
    2929   ! 
    3030   USE in_out_manager ! I/O manager 
     31   USE iom            ! IOM library 
    3132   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    3233   USE lib_mpp        ! Massively Parallel Processing library 
     
    155156      ! ------------------------ 
    156157      IF ( ln_bdy .AND. ln_mask_file ) THEN 
     158         CALL iom_open( cn_mask_file, inum ) 
     159         CALL iom_get ( inum, jpdom_data, 'bdy_msk', bdytmask(:,:) ) 
     160         CALL iom_close( inum ) 
    157161         DO jk = 1, jpkm1 
    158162            DO jj = 1, jpj 
Note: See TracChangeset for help on using the changeset viewer.