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 10284 for NEMO – NEMO

Changeset 10284 for NEMO


Ignore:
Timestamp:
2018-11-07T12:46:38+01:00 (5 years ago)
Author:
andmirek
Message:

GMED 425 dev_r10037_mppmask

File:
1 edited

Legend:

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

    r9950 r10284  
    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.