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 14203 for NEMO/trunk/src – NEMO

Changeset 14203 for NEMO/trunk/src


Ignore:
Timestamp:
2020-12-17T19:10:54+01:00 (3 years ago)
Author:
techene
Message:

trunk : cosmetics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/step.F90

    r14201 r14203  
    3333   !!            4.1  !  2019-08  (A. Coward, D. Storkey) rewrite in preparation for new timestepping scheme 
    3434   !!---------------------------------------------------------------------- 
     35 
    3536#if defined key_qco   ||   defined key_linssh 
    3637   !!---------------------------------------------------------------------- 
     
    282283 
    283284#if defined key_agrif 
    284       IF(.NOT. Agrif_Root()) THEN 
     285      IF(.NOT. Agrif_Root() )  THEN 
    285286         IF( ln_tile    )   CALL dom_tile( ntsi, ntsj, ntei, ntej, ktile = 0 ) 
    286287                            CALL Agrif_Sponge_tra        ! tracers sponge 
     
    294295                            CALL tra_adv    ( kstp, Nbb, Nnn, ts, Nrhs )  ! hor. + vert. advection ==> RHS 
    295296         IF( ln_zdfmfc  )   CALL tra_mfc    ( kstp, Nbb,      ts, Nrhs )  ! Mass Flux Convection 
    296          IF( ln_zdfosm  )   CALL tra_osm    ( kstp,      Nnn, ts, Nrhs )  ! OSMOSIS non-local tracer fluxes ==> RHS 
    297          IF( lrst_oce .AND. ln_zdfosm )   & 
    298             &               CALL osm_rst    ( kstp,      Nnn, 'WRITE'  )  ! write OSMOSIS outputs + ww (so must do here) to restarts 
     297         IF( ln_zdfosm  ) THEN 
     298                            CALL tra_osm    ( kstp,      Nnn, ts, Nrhs )  ! OSMOSIS non-local tracer fluxes ==> RHS 
     299            IF( lrst_oce )  CALL osm_rst    ( kstp,      Nnn, 'WRITE'  )  ! write OSMOSIS outputs + ww (so must do here) to restarts 
     300         ENDIF 
    299301                            CALL tra_ldf    ( kstp, Nbb, Nnn, ts, Nrhs )  ! lateral mixing 
    300302 
Note: See TracChangeset for help on using the changeset viewer.