Changeset 4733 for branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90

Timestamp:

2014-07-30T15:52:48+02:00 (10 years ago)

Author:

vancop

Message:

Fix energy budget in coupled case

File:

• branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90 (modified) (1 diff)

branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90

@@ -166 +166 @@
       !! note that we need sbc_ssm called first in sbc
       !
-      IF( ln_cpl ) THEN
-         IF( lwp ) WRITE(numout,*) 'Coupled mode not sensible with StandAlone Surface scheme'
-         ln_cpl = .FALSE.
-      ENDIF
       IF( ln_apr_dyn ) THEN
          IF( lwp ) WRITE(numout,*) 'No atmospheric gradient needed with StandAlone Surface scheme'