Changeset 14203 for NEMO/trunk/src
- Timestamp:
- 2020-12-17T19:10:54+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/step.F90
r14201 r14203 33 33 !! 4.1 ! 2019-08 (A. Coward, D. Storkey) rewrite in preparation for new timestepping scheme 34 34 !!---------------------------------------------------------------------- 35 35 36 #if defined key_qco || defined key_linssh 36 37 !!---------------------------------------------------------------------- … … 282 283 283 284 #if defined key_agrif 284 IF(.NOT. Agrif_Root() )THEN285 IF(.NOT. Agrif_Root() ) THEN 285 286 IF( ln_tile ) CALL dom_tile( ntsi, ntsj, ntei, ntej, ktile = 0 ) 286 287 CALL Agrif_Sponge_tra ! tracers sponge … … 294 295 CALL tra_adv ( kstp, Nbb, Nnn, ts, Nrhs ) ! hor. + vert. advection ==> RHS 295 296 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 299 301 CALL tra_ldf ( kstp, Nbb, Nnn, ts, Nrhs ) ! lateral mixing 300 302
Note: See TracChangeset
for help on using the changeset viewer.