Changeset 2887 for branches/2011/dev_r2802_NOCL_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2011-10-05T11:16:29+02:00 (13 years ago)

Author:

hliu

Message:

addition and modification of files for Smagorinsky method. for Maria Luneva

File:

• branches/2011/dev_r2802_NOCL_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

branches/2011/dev_r2802_NOCL_Smagorinsky/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -156 +156 @@
       IF( lk_traldf_eiv )   CALL ldf_eiv( kstp )      ! eddy induced velocity coefficient
 #endif
+#if defined key_traldf_c3d && key_traldf_smag
+       CALL ldf_tra_smag( kstp )      ! Smagorinsky diffusivity
+#  endif
+#if defined key_dynldf_c3d && key_dynldf_smag
+       CALL ldf_dyn_smag( kstp )      ! Smagorinsky viscosity
+#  endif
+
 
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>