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 12766 for NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_structure/src/OCE/step.F90 – NEMO

Ignore:
Timestamp:
2020-04-17T14:54:46+02:00 (4 years ago)
Author:
hadcv
Message:

tra_ldf_iso trial using structures

File:
1 edited

Legend:

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

    r12650 r12766  
    8181      !!              -8- Outputs and diagnostics 
    8282      !!---------------------------------------------------------------------- 
    83       INTEGER ::   ji, jj, jk   ! dummy loop indice 
     83      TYPE(TILE)   :: stile     ! Tile indices 
     84      INTEGER ::   ji, jj, jk, jtile   ! dummy loop indice 
    8485      INTEGER ::   indic        ! error indicator if < 0 
    8586!!gm kcall can be removed, I guess 
     
    264265      IF( lrst_oce .AND. ln_zdfosm ) & 
    265266           &             CALL osm_rst    ( kstp,      Nnn, 'WRITE'  )  ! write OSMOSIS outputs + ww (so must do here) to restarts 
    266                          CALL tra_ldf    ( kstp, Nbb, Nnn, ts, Nrhs )  ! lateral mixing 
    267  
     267 
     268      ! Loop over tile domains 
     269      DO jtile = 1, jpnijtile 
     270                         CALL dom_tile( jtile, stile ) 
     271                         CALL tra_ldf    ( stile, kstp, Nbb, Nnn, ts, Nrhs ) ! lateral mixing 
     272      END DO 
    268273                         CALL tra_zdf    ( kstp, Nbb, Nnn, Nrhs, ts, Naa  )  ! vertical mixing and after tracer fields 
    269274      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.