Ignore:
Timestamp:
2020-05-06T14:38:01+02:00 (9 months ago)
Author:
hadcv
Message:

Changes following feedback

File:
1 edited

Legend:

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

    r12765 r12879  
    266266 
    267267      ! Loop over tile domains 
    268       DO jtile = 1, jpnijtile 
    269          IF( ln_tile )   CALL dom_tile( jtile ) 
     268      DO jtile = 1, nijtile 
     269         IF( ln_tile ) ntile = jtile 
    270270                         CALL tra_ldf    ( kstp, Nbb, Nnn, ts, Nrhs )  ! lateral mixing 
    271271      END DO 
    272       IF( ln_tile )      CALL dom_tile( 0 )                            ! Revert to tile over full domain 
    273  
     272      IF( ln_tile ) ntile = 0                                          ! Revert to tile over full domain 
    274273                         CALL tra_zdf    ( kstp, Nbb, Nnn, Nrhs, ts, Naa  )  ! vertical mixing and after tracer fields 
    275274      IF( ln_zdfnpc  )   CALL tra_npc    ( kstp,      Nnn, Nrhs, ts, Naa  )  ! update after fields by non-penetrative convection 
Note: See TracChangeset for help on using the changeset viewer.