Changeset 10221

Timestamp:

2018-10-25T11:09:53+02:00 (6 years ago)

Author:

mathiot

Message:

read mmpmask from domain_cfg instead of bottom_level

File:

• NEMO/branches/UKMO/dev_r10037_mppmask/src/OCE/LBC/mppini.F90 (modified) (2 diffs)

NEMO/branches/UKMO/dev_r10037_mppmask/src/OCE/LBC/mppini.F90

@@ -632 +632 @@
       INTEGER :: ios    !: iostat error flag
       INTEGER ::  ijstartrow                   ! temporary integers
-      REAL(wp), DIMENSION(jpiglo,jpjglo) ::   zbot, zbdy          ! global workspace
+      REAL(wp), DIMENSION(jpiglo,jpjglo) ::   zmsk, zbdy          ! global workspace
       REAL(wp) ::   zidom , zjdom          ! local scalars
       NAMELIST/nambdy/ ln_bdy, nb_bdy, ln_coords_file, cn_coords_file,           &
@@ -646 +646 @@
       CALL iom_open( cn_domcfg, inum )
       !
-      ! ocean bottom level
-      CALL iom_get( inum, jpdom_unknown, 'bottom_level' , zbot , lrowattr=ln_use_jattr )  ! nb of ocean T-points
+      ! mpp mask (used to define land processor)
+      CALL iom_get( inum, jpdom_unknown, 'mppmask' , zmsk , lrowattr=ln_use_jattr )  ! nb of ocean T-points
       !
       CALL iom_close( inum )
       !
       ! 2D ocean mask (=1 if at least one level of the water column is ocean, =0 otherwise)
-      WHERE( zbot(:,:) > 0 )   ;   kmask(:,:) = 1
+      WHERE( zmsk(:,:) > 0 )   ;   kmask(:,:) = 1
       ELSEWHERE                ;   kmask(:,:) = 0
       END WHERE