Changeset 11458 for NEMO/branches/UKMO/NEMO_4.0_mppmask/src/OCE/LBC/mppini.F90

Timestamp:

2019-08-20T10:32:32+02:00 (5 years ago)

Author:

cguiavarch

Message:

Read mmpmask from domain_cfg instead of bottom_level

File:

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

NEMO/branches/UKMO/NEMO_4.0_mppmask/src/OCE/LBC/mppini.F90

@@ -1110 +1110 @@
       !
       INTEGER                           ::   inumsave                ! local logical unit
-      REAL(wp), DIMENSION(jpiglo,kjcnt) ::   zbot, zbdy 
+      REAL(wp), DIMENSION(jpiglo,kjcnt) ::   zmsk, zbdy 
       !!----------------------------------------------------------------------
       !
@@ -1116 +1116 @@
       !
       IF( numbot /= -1 ) THEN
-         CALL iom_get( numbot, jpdom_unknown, 'bottom_level', zbot, kstart = (/1,kjstr/), kcount = (/jpiglo, kjcnt/) )
+         CALL iom_get( numbot, jpdom_unknown, 'mppmask', zmsk, kstart = (/1,kjstr/), kcount = (/jpiglo, kjcnt/) )
       ELSE
-         zbot(:,:) = 1.                         ! put a non-null value
+         zmsk(:,:) = 1.                         ! put a non-null value
       ENDIF
 
        IF( numbdy /= -1 ) THEN                  ! Adjust with bdy_msk if it exists    
          CALL iom_get ( numbdy, jpdom_unknown, 'bdy_msk', zbdy, kstart = (/1,kjstr/), kcount = (/jpiglo, kjcnt/) )
-         zbot(:,:) = zbot(:,:) * zbdy(:,:)
-      ENDIF
-      !
-      ldoce(:,:) = zbot(:,:) > 0.
+         zmsk(:,:) = zmsk(:,:) * zbdy(:,:)
+      ENDIF
+      !
+      ldoce(:,:) = zmsk(:,:) > 0.
       numout = inumsave
       !