Changeset 604

Timestamp:

2007-02-20T16:07:52+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_012 : CT+RB : - avoid to "CALL tau( kstp )" in step subroutine in using a new logical lk_core when using CORE forcing

Location:

trunk/NEMO/OPA_SRC

Files:

• SBC/flxmod.F90 (modified) (1 diff)
• step.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/flxmod.F90

@@ -47 +47 @@
    IMPLICIT NONE
    PRIVATE
+
+#if defined key_flx_core
+   LOGICAL, PUBLIC ::   lk_core = .TRUE.   !: CORE surface fluxes flag
+#else
+   LOGICAL, PUBLIC ::   lk_core = .FALSE.  !: CORE surface fluxes flag
+#endif
 
 #if defined key_oasis3 || defined key_oasis4

trunk/NEMO/OPA_SRC/step.F90

@@ -202 +202 @@
       IF( lk_obc     )   CALL obc_rad( kstp )         ! compute phase velocities at open boundaries
 
-                         CALL tau( kstp )             ! wind stress
+      IF( .NOT. lk_core )    CALL tau( kstp )         ! wind stress
 
                          CALL flx_rnf( kstp )         ! runoff data