New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12942 for NEMO/branches/UKMO/dev_r12866_HPC-02_Daley_Tiling_trial_extra_halo/src/OCE/TRA/traldf_iso.F90 – NEMO

Ignore:
Timestamp:
2020-05-18T13:14:54+02:00 (3 years ago)
Author:
hadcv
Message:

Correct/improve IF blocks for one tile code

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

    r12941 r12942  
    114114      ! 
    115115      IF( kpass == 1 .AND. kt == kit000 )  THEN 
    116          IF( ntile == 1 )  THEN                       ! Do only on the first tile 
     116         IF( ntile == 0 .OR. ntile == 1 )  THEN                       ! Do only on the first tile 
    117117            ! TODO: TO BE TILED 
    118118            IF(lwp) WRITE(numout,*) 
     
    321321         END_3D 
    322322         ! 
    323          IF( ntile == nijtile )  THEN                          ! Do only after all tiles finish 
    324323         IF( ( kpass == 1 .AND. ln_traldf_lap ) .OR.  &     !==  first pass only (  laplacian)  ==! 
    325324             ( kpass == 2 .AND. ln_traldf_blp ) ) THEN      !==  2nd   pass      (bilaplacian)  ==! 
     
    334333            ! 
    335334         ENDIF                                                    !== end pass selection  ==! 
    336          ENDIF 
    337335         ! 
    338336         !                                                        ! =============== 
Note: See TracChangeset for help on using the changeset viewer.