Changeset 5501 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2015-06-29T12:08:15+02:00 (9 years ago)

Author:

deazer

Message:

Adjusted small Bugfix to retain orginal order of statements in step.F90
Requires use of key_bdy.
Passes Sette
See Ticket: 1521
set dyn_apr to false in AMM12 for now before forcing files are updated on ftp site
to allow AMM12 sette to pass.

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -53 +53 @@
    USE timing           ! Timing
    USE sbcwave          ! Wave module
+   USE bdy_par          ! Require lk_bdy
 
    IMPLICIT NONE
@@ -343 +344 @@
       !                                            ! ---------------------------------------- !
       !
-      IF( ln_apr_dyn ) CALL sbc_apr( kt )                ! atmospheric pressure provided at kt+0.5*nn_fsbc
+      IF ( .NOT. lk_bdy ) then
+         IF( ln_apr_dyn ) CALL sbc_apr( kt )                ! atmospheric pressure provided at kt+0.5*nn_fsbc
+      ENDIF
                                                          ! (caution called before sbc_ssm)
       !