Changeset 3302 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Oct 3, 2018 2:39:40 AM (6 years ago)

Author:

raasch

Message:

Craik-Leibovich force and wave breaking effects added to ocean mode, header output for ocean mode

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! allocate and set stokes drift velocity profiles
+! 
+! 3298 2018-10-02 12:21:11Z kanani
 ! Minor formatting (kanani)
 ! Added CALL to the chem_emissions module (Russo)
@@ -788 +791 @@
 #endif
     ENDIF
+
+!
+!-- Allocate and set 1d-profiles for Stokes drift velocity. It may be set to
+!-- non-zero values later in ocean_init
+    ALLOCATE( u_stokes_zu(nzb:nzt+1), u_stokes_zw(nzb:nzt+1),                  &
+              v_stokes_zu(nzb:nzt+1), v_stokes_zw(nzb:nzt+1) )
+    u_stokes_zu(:) = 0.0_wp
+    u_stokes_zw(:) = 0.0_wp
+    v_stokes_zu(:) = 0.0_wp
+    v_stokes_zw(:) = 0.0_wp
 
 !