Changeset 12962 for NEMO/branches/UKMO/dev_r12866_HPC-02_Daley_Tiling_trial_extra_halo/src/OCE/DOM/domvvl.F90
- Timestamp:
- 2020-05-22T16:18:18+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r12866_HPC-02_Daley_Tiling_trial_extra_halo/src/OCE/DOM/domvvl.F90
r12958 r12962 261 261 IF( cn_cfg == "orca" .OR. cn_cfg == "ORCA" ) THEN 262 262 IF( nn_cfg == 3 ) THEN ! ORCA2: Suppress ztilde in the Foxe Basin for ORCA2 263 ii0 = 103 ; ii1 = 111264 ij0 = 128 ; ij1 = 135 ;263 ii0 = 103 + nn_hls - 1 ; ii1 = 111 + nn_hls - 1 264 ij0 = 128 + nn_hls ; ij1 = 135 + nn_hls 265 265 frq_rst_e3t( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 0.0_wp 266 266 frq_rst_hdv( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 1.e0_wp / rn_Dt
Note: See TracChangeset
for help on using the changeset viewer.