Changeset 14986 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/TRA/traisf.F90
- Timestamp:
- 2021-06-14T13:34:08+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/TRA/traisf.F90
r14219 r14986 48 48 IF( ln_timing ) CALL timing_start('tra_isf') 49 49 ! 50 IF( ntile == 0.OR. ntile == 1 ) THEN ! Do only on the first tile50 IF( .NOT. l_istiled .OR. ntile == 1 ) THEN ! Do only on the first tile 51 51 IF( kt == nit000 ) THEN 52 52 IF(lwp) WRITE(numout,*) … … 80 80 ! 81 81 IF ( ln_isfdebug ) THEN 82 IF( ntile == 0.OR. ntile == nijtile ) THEN ! Do only for the full domain82 IF( .NOT. l_istiled .OR. ntile == nijtile ) THEN ! Do only for the full domain 83 83 CALL debug('tra_isf: pts(:,:,:,:,Krhs) T', CASTWP(pts(:,:,:,1,Krhs))) 84 84 CALL debug('tra_isf: pts(:,:,:,:,Krhs) S', CASTWP(pts(:,:,:,2,Krhs)))
Note: See TracChangeset
for help on using the changeset viewer.