Changeset 15455 for NEMO/branches/UKMO/r14075_ukmo_shelf/src/OCE/step.F90

Timestamp:

2021-10-28T11:23:37+02:00 (3 years ago)

Author:

jcastill

Message:

Code for uncoupled configurations, some changes for coupling may be needed yet - merged branch branches/UKMO/r14075_cpl-pressure@15423

File:

• NEMO/branches/UKMO/r14075_ukmo_shelf/src/OCE/step.F90 (modified) (1 diff)

NEMO/branches/UKMO/r14075_ukmo_shelf/src/OCE/step.F90

@@ -109 +109 @@
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
       IF( ln_tide    )   CALL sbc_tide( kstp )                   ! update tide potential
-      IF( ln_apr_dyn )   CALL sbc_apr ( kstp )                   ! atmospheric pressure (NB: call before bdy_dta which needs ssh_ib) 
-      IF( ln_bdy     )   CALL bdy_dta ( kstp, kt_offset = +1 )   ! update dynamic & tracer data at open boundaries
                          CALL sbc     ( kstp )                   ! Sea Boundary Condition (including sea-ice)