Changeset 7620

Timestamp:

2017-01-30T14:35:21+01:00 (7 years ago)

Author:

jcastill

Message:

Fix bug with momentum transfer in coupled mode

File:

• branches/UKMO/r6232_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (2 diffs)

branches/UKMO/r6232_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -395 +395 @@
       END SELECT
 
+      IF( ln_mixcpl )        CALL sbc_cpl_rcv ( kt, nn_fsbc, nn_ice )   ! forced-coupled mixed formulation after forcing
+
       IF ( ln_wave .AND. ln_tauoc) THEN                 ! Wave stress subctracted 
             utau(:,:) = utau(:,:)*tauoc_wave(:,:) 
@@ -407 +409 @@
       ! 
       END IF
-      IF( ln_mixcpl )        CALL sbc_cpl_rcv ( kt, nn_fsbc, nn_ice )   ! forced-coupled mixed formulation after forcing
-
 
       !                                            !==  Misc. Options  ==!