Changeset 12944 for NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/TRA/traldf.F90
- Timestamp:
- 2020-05-18T13:41:16+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/TRA/traldf.F90
r12943 r12944 45 45 CONTAINS 46 46 47 SUBROUTINE tra_ldf( kt, Kbb, Kmm, pts, Krhs )47 SUBROUTINE tra_ldf( kt, Kbb, Kmm, pts, Krhs ) 48 48 !!---------------------------------------------------------------------- 49 49 !! *** ROUTINE tra_ldf *** … … 58 58 !!---------------------------------------------------------------------- 59 59 ! 60 60 IF( ln_timing ) CALL timing_start('tra_ldf') 61 61 ! 62 62 IF( ntile == 0 .OR. ntile == nijtile ) THEN ! Do only after all tiles finish … … 91 91 ENDIF 92 92 ENDIF 93 94 95 96 97 93 ! !* print mean trends (used for debugging) 94 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=pts(:,:,:,jp_tem,Krhs), clinfo1=' ldf - Ta: ', mask1=tmask, & 95 & tab3d_2=pts(:,:,:,jp_sal,Krhs), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 96 ! 97 IF( ln_timing ) CALL timing_stop('tra_ldf') 98 98 ! 99 99 END SUBROUTINE tra_ldf
Note: See TracChangeset
for help on using the changeset viewer.