Changeset 7698 for trunk/NEMOGCM/NEMO/OPA_SRC/BDY
- Timestamp:
- 2017-02-18T10:02:03+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90
r7646 r7698 156 156 USE lib_mpp, ONLY: ctl_warn, mpp_sum 157 157 ! 158 INTEGER :: ji, jj ! dummy loop indices 158 159 INTEGER :: bdy_oce_alloc 159 160 !!---------------------------------------------------------------------- … … 163 164 ! 164 165 ! Initialize masks 165 bdytmask(:,:) = 1._wp 166 bdyumask(:,:) = 1._wp 167 bdyvmask(:,:) = 1._wp 166 !$OMP PARALLEL DO schedule(static) private(jj,ji) 167 DO jj = 1, jpj 168 DO ji = 1, jpi 169 bdytmask(ji,jj) = 1._wp 170 bdyumask(ji,jj) = 1._wp 171 bdyvmask(ji,jj) = 1._wp 172 END DO 173 END DO 168 174 ! 169 175 IF( lk_mpp ) CALL mpp_sum ( bdy_oce_alloc )
Note: See TracChangeset
for help on using the changeset viewer.