Changeset 11458


Ignore:
Timestamp:
2019-08-20T10:32:32+02:00 (13 months ago)
Author:
cguiavarch
Message:

Read mmpmask from domain_cfg instead of bottom_level

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_mppmask/src/OCE/LBC/mppini.F90

    r10888 r11458  
    11101110      ! 
    11111111      INTEGER                           ::   inumsave                ! local logical unit 
    1112       REAL(wp), DIMENSION(jpiglo,kjcnt) ::   zbot, zbdy  
     1112      REAL(wp), DIMENSION(jpiglo,kjcnt) ::   zmsk, zbdy  
    11131113      !!---------------------------------------------------------------------- 
    11141114      ! 
     
    11161116      ! 
    11171117      IF( numbot /= -1 ) THEN 
    1118          CALL iom_get( numbot, jpdom_unknown, 'bottom_level', zbot, kstart = (/1,kjstr/), kcount = (/jpiglo, kjcnt/) ) 
     1118         CALL iom_get( numbot, jpdom_unknown, 'mppmask', zmsk, kstart = (/1,kjstr/), kcount = (/jpiglo, kjcnt/) ) 
    11191119      ELSE 
    1120          zbot(:,:) = 1.                         ! put a non-null value 
     1120         zmsk(:,:) = 1.                         ! put a non-null value 
    11211121      ENDIF 
    11221122 
    11231123       IF( numbdy /= -1 ) THEN                  ! Adjust with bdy_msk if it exists     
    11241124         CALL iom_get ( numbdy, jpdom_unknown, 'bdy_msk', zbdy, kstart = (/1,kjstr/), kcount = (/jpiglo, kjcnt/) ) 
    1125          zbot(:,:) = zbot(:,:) * zbdy(:,:) 
    1126       ENDIF 
    1127       ! 
    1128       ldoce(:,:) = zbot(:,:) > 0. 
     1125         zmsk(:,:) = zmsk(:,:) * zbdy(:,:) 
     1126      ENDIF 
     1127      ! 
     1128      ldoce(:,:) = zmsk(:,:) > 0. 
    11291129      numout = inumsave 
    11301130      ! 
Note: See TracChangeset for help on using the changeset viewer.