Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DIA/diacfl.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/DIA/diacfl.F90
r13497 r14644 61 61 IF( ln_timing ) CALL timing_start('dia_cfl') 62 62 ! 63 llmsk( 1:Nis1,:,:) = .FALSE.! exclude halos from the checked region64 llmsk(Nie 1:jpi,:,:) = .FALSE.65 llmsk(:, 1:Njs1,:) = .FALSE.66 llmsk(:,Nje 1:jpj,:) = .FALSE.63 llmsk( 1:nn_hls,:,:) = .FALSE. ! exclude halos from the checked region 64 llmsk(Nie0+1: jpi,:,:) = .FALSE. 65 llmsk(:, 1:nn_hls,:) = .FALSE. 66 llmsk(:,Nje0+1: jpj,:) = .FALSE. 67 67 ! 68 68 DO_3D( 0, 0, 0, 0, 1, jpk ) ! calculate Courant numbers
Note: See TracChangeset
for help on using the changeset viewer.