Changeset 12941
- Timestamp:
- 2020-05-18T12:53:30+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/TRA/traldf_iso.F90
r12906 r12941 197 197 !!---------------------------------------------------------------------- 198 198 !!gm : bug.... why (x,:,:)? (1,jpj,:) and (jpi,1,:) should be sufficient.... 199 zdit ( 1,:,:) = 0._wp ; zdit (jpi,:,:) = 0._wp200 zdjt ( 1,:,:) = 0._wp ; zdjt (jpi,:,:) = 0._wp199 zdit (Ntis2,:,:) = 0._wp ; zdit (Ntie2,:,:) = 0._wp 200 zdjt (Ntis2,:,:) = 0._wp ; zdjt (Ntie2,:,:) = 0._wp 201 201 !!end 202 202 … … 322 322 ! 323 323 IF( ntile == nijtile ) THEN ! Do only after all tiles finish 324 325 326 327 328 324 IF( ( kpass == 1 .AND. ln_traldf_lap ) .OR. & !== first pass only ( laplacian) ==! 325 ( kpass == 2 .AND. ln_traldf_blp ) ) THEN !== 2nd pass (bilaplacian) ==! 326 ! 327 ! ! "Poleward" diffusive heat or salt transports (T-S case only) 328 ! note sign is reversed to give down-gradient diffusive transports ) 329 329 ! TODO: TO BE TILED 330 331 330 IF( l_ptr ) CALL dia_ptr_hst( jn, 'ldf', -zftv(:,:,:) ) 331 ! ! Diffusive heat transports 332 332 ! TODO: TO BE TILED 333 334 335 333 IF( l_hst ) CALL dia_ar5_hst( jn, 'ldf', -zftu(:,:,:), -zftv(:,:,:) ) 334 ! 335 ENDIF !== end pass selection ==! 336 336 ENDIF 337 337 !
Note: See TracChangeset
for help on using the changeset viewer.