Changeset 14603 for NEMO/branches/UKMO/NEMO_4.0.4_mppmask/src
- Timestamp:
- 2021-03-09T12:51:51+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_mppmask/src/OCE/LBC/mppini.F90
r14075 r14603 1170 1170 ! 1171 1171 INTEGER :: inumsave ! local logical unit 1172 REAL(wp), DIMENSION(jpiglo,kjcnt) :: z bot, zbdy1172 REAL(wp), DIMENSION(jpiglo,kjcnt) :: zmsk, zbdy 1173 1173 !!---------------------------------------------------------------------- 1174 1174 ! … … 1176 1176 ! 1177 1177 IF( numbot /= -1 ) THEN 1178 CALL iom_get( numbot, jpdom_unknown, ' bottom_level', zbot, kstart = (/1,kjstr/), kcount = (/jpiglo, kjcnt/) )1178 CALL iom_get( numbot, jpdom_unknown, 'mppmask', zmsk, kstart = (/1,kjstr/), kcount = (/jpiglo, kjcnt/) ) 1179 1179 ELSE 1180 z bot(:,:) = 1. ! put a non-null value1180 zmsk(:,:) = 1. ! put a non-null value 1181 1181 ENDIF 1182 1182 1183 1183 IF( numbdy /= -1 ) THEN ! Adjust with bdy_msk if it exists 1184 1184 CALL iom_get ( numbdy, jpdom_unknown, 'bdy_msk', zbdy, kstart = (/1,kjstr/), kcount = (/jpiglo, kjcnt/) ) 1185 z bot(:,:) = zbot(:,:) * zbdy(:,:)1186 ENDIF 1187 ! 1188 ldoce(:,:) = z bot(:,:) > 0.1185 zmsk(:,:) = zmsk(:,:) * zbdy(:,:) 1186 ENDIF 1187 ! 1188 ldoce(:,:) = zmsk(:,:) > 0. 1189 1189 numout = inumsave 1190 1190 !
Note: See TracChangeset
for help on using the changeset viewer.