Changeset 13126 for NEMO/branches/UKMO/NEMO_4.0.2_mppmask
- Timestamp:
- 2020-06-17T18:05:30+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.2_mppmask/src/OCE/LBC/mppini.F90
r12658 r13126 1149 1149 ! 1150 1150 INTEGER :: inumsave ! local logical unit 1151 REAL(wp), DIMENSION(jpiglo,kjcnt) :: z bot, zbdy1151 REAL(wp), DIMENSION(jpiglo,kjcnt) :: zmsk, zbdy 1152 1152 !!---------------------------------------------------------------------- 1153 1153 ! … … 1155 1155 ! 1156 1156 IF( numbot /= -1 ) THEN 1157 CALL iom_get( numbot, jpdom_unknown, ' bottom_level', zbot, kstart = (/1,kjstr/), kcount = (/jpiglo, kjcnt/) )1157 CALL iom_get( numbot, jpdom_unknown, 'mppmask', zmsk, kstart = (/1,kjstr/), kcount = (/jpiglo, kjcnt/) ) 1158 1158 ELSE 1159 z bot(:,:) = 1. ! put a non-null value1159 zmsk(:,:) = 1. ! put a non-null value 1160 1160 ENDIF 1161 1161 1162 1162 IF( numbdy /= -1 ) THEN ! Adjust with bdy_msk if it exists 1163 1163 CALL iom_get ( numbdy, jpdom_unknown, 'bdy_msk', zbdy, kstart = (/1,kjstr/), kcount = (/jpiglo, kjcnt/) ) 1164 z bot(:,:) = zbot(:,:) * zbdy(:,:)1165 ENDIF 1166 ! 1167 ldoce(:,:) = z bot(:,:) > 0.1164 zmsk(:,:) = zmsk(:,:) * zbdy(:,:) 1165 ENDIF 1166 ! 1167 ldoce(:,:) = zmsk(:,:) > 0. 1168 1168 numout = inumsave 1169 1169 !
Note: See TracChangeset
for help on using the changeset viewer.