Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DOM/domvvl.F90
- Timestamp:
- 2021-03-26T15:33:49+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette _wave@13990sette11 ^/utils/CI/sette@14244 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DOM/domvvl.F90
r14219 r14644 425 425 ! ! d - thickness diffusion transport: boundary conditions 426 426 ! (stored for tracer advction and continuity equation) 427 CALL lbc_lnk _multi( 'domvvl', un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp)427 CALL lbc_lnk( 'domvvl', un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp) 428 428 ! 4 - Time stepping of baroclinic scale factors 429 429 ! --------------------------------------------- … … 438 438 END_3D 439 439 ! 440 llmsk( 1:Nis1,:,:) = .FALSE. ! exclude halos from the checked region441 llmsk(Nie 1:jpi,:,:) = .FALSE.442 llmsk(:, 1:Njs1,:) = .FALSE.443 llmsk(:,Nje 1:jpj,:) = .FALSE.440 llmsk( 1:nn_hls,:,:) = .FALSE. ! exclude halos from the checked region 441 llmsk(Nie0+1: jpi,:,:) = .FALSE. 442 llmsk(:, 1:nn_hls,:) = .FALSE. 443 llmsk(:,Nje0+1: jpj,:) = .FALSE. 444 444 ! 445 445 llmsk(Nis0:Nie0,Njs0:Nje0,:) = tmask(Nis0:Nie0,Njs0:Nje0,:) == 1._wp ! define only the inner domain
Note: See TracChangeset
for help on using the changeset viewer.