Changeset 10221


Ignore:
Timestamp:
2018-10-25T11:09:53+02:00 (2 years ago)
Author:
mathiot
Message:

read mmpmask from domain_cfg instead of bottom_level

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r10037_mppmask/src/OCE/LBC/mppini.F90

    r9950 r10221  
    632632      INTEGER :: ios    !: iostat error flag 
    633633      INTEGER ::  ijstartrow                   ! temporary integers 
    634       REAL(wp), DIMENSION(jpiglo,jpjglo) ::   zbot, zbdy          ! global workspace 
     634      REAL(wp), DIMENSION(jpiglo,jpjglo) ::   zmsk, zbdy          ! global workspace 
    635635      REAL(wp) ::   zidom , zjdom          ! local scalars 
    636636      NAMELIST/nambdy/ ln_bdy, nb_bdy, ln_coords_file, cn_coords_file,           & 
     
    646646      CALL iom_open( cn_domcfg, inum ) 
    647647      ! 
    648       ! ocean bottom level 
    649       CALL iom_get( inum, jpdom_unknown, 'bottom_level' , zbot , lrowattr=ln_use_jattr )  ! nb of ocean T-points 
     648      ! mpp mask (used to define land processor) 
     649      CALL iom_get( inum, jpdom_unknown, 'mppmask' , zmsk , lrowattr=ln_use_jattr )  ! nb of ocean T-points 
    650650      ! 
    651651      CALL iom_close( inum ) 
    652652      ! 
    653653      ! 2D ocean mask (=1 if at least one level of the water column is ocean, =0 otherwise) 
    654       WHERE( zbot(:,:) > 0 )   ;   kmask(:,:) = 1 
     654      WHERE( zmsk(:,:) > 0 )   ;   kmask(:,:) = 1 
    655655      ELSEWHERE                ;   kmask(:,:) = 0 
    656656      END WHERE 
Note: See TracChangeset for help on using the changeset viewer.