Changeset 12944


Ignore:
Timestamp:
2020-05-18T13:41:16+02:00 (7 days ago)
Author:
hadcv
Message:

Undo some whitespace changes

Location:
NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/TRA
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/TRA/traldf.F90

    r12943 r12944  
    4545CONTAINS 
    4646 
    47    SUBROUTINE tra_ldf(kt, Kbb, Kmm, pts, Krhs ) 
     47   SUBROUTINE tra_ldf( kt, Kbb, Kmm, pts, Krhs ) 
    4848      !!---------------------------------------------------------------------- 
    4949      !!                  ***  ROUTINE tra_ldf  *** 
     
    5858      !!---------------------------------------------------------------------- 
    5959      ! 
    60          IF( ln_timing )   CALL timing_start('tra_ldf') 
     60      IF( ln_timing )   CALL timing_start('tra_ldf') 
    6161      ! 
    6262      IF( ntile == 0 .OR. ntile == nijtile )  THEN                ! Do only after all tiles finish 
     
    9191         ENDIF 
    9292      ENDIF 
    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') 
     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') 
    9898      ! 
    9999   END SUBROUTINE tra_ldf 
  • NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/TRA/traldf_iso.F90

    r12943 r12944  
    321321         END_3D 
    322322         ! 
    323             IF( ( kpass == 1 .AND. ln_traldf_lap ) .OR.  &     !==  first pass only (  laplacian)  ==! 
    324                 ( kpass == 2 .AND. ln_traldf_blp ) ) THEN      !==  2nd   pass      (bilaplacian)  ==! 
    325                ! 
    326                !                             ! "Poleward" diffusive heat or salt transports (T-S case only) 
    327                   ! note sign is reversed to give down-gradient diffusive transports ) 
    328                ! TODO: TO BE TILED 
    329                IF( l_ptr )  CALL dia_ptr_hst( jn, 'ldf', -zftv(:,:,:)  ) 
    330                !                          ! Diffusive heat transports 
    331                ! TODO: TO BE TILED 
    332                IF( l_hst )  CALL dia_ar5_hst( jn, 'ldf', -zftu(:,:,:), -zftv(:,:,:) ) 
    333                ! 
    334             ENDIF                                                    !== end pass selection  ==! 
     323         IF( ( kpass == 1 .AND. ln_traldf_lap ) .OR.  &     !==  first pass only (  laplacian)  ==! 
     324             ( kpass == 2 .AND. ln_traldf_blp ) ) THEN      !==  2nd   pass      (bilaplacian)  ==! 
     325            ! 
     326            !                             ! "Poleward" diffusive heat or salt transports (T-S case only) 
     327               ! note sign is reversed to give down-gradient diffusive transports ) 
     328            ! TODO: TO BE TILED 
     329            IF( l_ptr )  CALL dia_ptr_hst( jn, 'ldf', -zftv(:,:,:)  ) 
     330            !                          ! Diffusive heat transports 
     331            ! TODO: TO BE TILED 
     332            IF( l_hst )  CALL dia_ar5_hst( jn, 'ldf', -zftu(:,:,:), -zftv(:,:,:) ) 
     333            ! 
     334         ENDIF                                                    !== end pass selection  ==! 
    335335         ! 
    336336         !                                                        ! =============== 
Note: See TracChangeset for help on using the changeset viewer.