Merge pull request #55 from apcraig/wave

add Qing Li changes for wavewatch coupling from July 2015
CVMix · Oct 5, 2015 · 1456d3e · 1456d3e
2 parents 15bf182 + 4bb3739
commit 1456d3e
Show file tree

Hide file tree

Showing 4 changed files with 170 additions and 7 deletions.
diff --git a/src/shared/cvmix_kinds_and_types.F90 b/src/shared/cvmix_kinds_and_types.F90
@@ -94,6 +94,13 @@ module cvmix_kinds_and_types
     ! Index of cell containing OBL (fraction > .5 => below cell center)
     real(cvmix_r8) :: kOBL_depth
                     ! units: unitless
+    ! QL, 150610
+    ! Langmuir mixing induced enhancement factor to turbulent velocity scale
+    real(cvmix_r8) :: LangmuirEnhancementFactor
+                    ! units: unitless
+    ! Surface Stokes drift magnitude
+    real(cvmix_r8) :: SurfaceStokesDrift
+                    ! units: m/s
 
     ! Values on interfaces (dimsize = nlev+1)
     ! --------------------