Changeset 3574 for branches/2012/dev_INGV/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

Timestamp:

2012-11-16T12:13:00+01:00 (11 years ago)

Author:

adani

Message:

ticket #998. Step 2: Add in changes from the 2012/dev_r3389_INGV4_stokes branch

File:

• branches/2012/dev_INGV/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90 (modified) (1 diff)

branches/2012/dev_INGV/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

@@ -44 +44 @@
    !                                             !:  = 1 global mean of e-p-r set to zero at each nn_fsbc time step
    !                                             !:  = 2 annual global mean of e-p-r set to zero
-   LOGICAL , PUBLIC ::   ln_cdgw     = .FALSE.   !: true if neutral drag coefficient read from wave model
+   LOGICAL , PUBLIC ::   ln_wave     = .FALSE.   !: true if some coupling with wave model
+   LOGICAL , PUBLIC ::   ln_cdgw     = .FALSE.   !: true if neutral drag coefficient from wave model
+   LOGICAL , PUBLIC ::   ln_sdw      = .FALSE.   !: true if 3d stokes drift from wave model
 
    !!----------------------------------------------------------------------