Changeset 10803 for NEMO/branches/UKMO/r8395_cpl-pressure/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2019-03-26T11:46:36+01:00 (5 years ago)

Author:

jcastill

Message:

Complete set of changes to use pressure read from coupling when available rather than from file

File:

• NEMO/branches/UKMO/r8395_cpl-pressure/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (3 diffs)

NEMO/branches/UKMO/r8395_cpl-pressure/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -357 +357 @@
       !!              - updte the ice fraction : fr_i
       !!----------------------------------------------------------------------
+      USE sbcapr, ONLY: sbc_apr
+      USE bdydta, ONLY: bdy_dta
+      !
       INTEGER, INTENT(in) ::   kt   ! ocean time step
       !
@@ -385 +388 @@
       !                                            !        forcing field computation         !
       !                                            ! ---------------------------------------- !
+      !
+      IF( ln_apr_dyn ) CALL sbc_apr( kt )                ! atmospheric pressure provided at kt+0.5*nn_fsbc
+                                                         ! (caution called before sbc_ssm)
       !
       ll_sas = nn_components == jp_iam_sas               ! component flags
@@ -420 +426 @@
       END IF
       IF( ln_mixcpl )          CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! forced-coupled mixed formulation after forcing
-
+      IF( ln_bdy )             CALL bdy_dta ( kt, time_offset=+1 )          ! update dynamic & tracer data at open boundaries
+                                                                            ! (caution called after sbc_ssm[_cpl] and before ice)
       !
       !                                            !==  Misc. Options  ==!