Changeset 3294 for palm/trunk/SOURCE/boundary_conds.f90

Timestamp:

Oct 1, 2018 2:37:10 AM (6 years ago)

Author:

raasch

Message:

modularization of the ocean code

File:

• palm/trunk/SOURCE/boundary_conds.f90 (modified) (5 diffs)

palm/trunk/SOURCE/boundary_conds.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! changes concerning modularization of ocean option
+! 
+! 3274 2018-09-24 15:42:55Z knoop
 ! Modularization of all bulk cloud physics code components
 ! 
@@ -203 +206 @@
         ONLY:  kappa
 
+    USE bulk_cloud_model_mod,                                                  &
+        ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
+
     USE chemistry_model_mod,                                                   &
         ONLY:  chem_boundary_conds 
@@ -212 +218 @@
                child_domain, constant_diffusion, coupling_mode, &
                dt_3d, humidity, ibc_pt_b, ibc_pt_t, ibc_q_b, ibc_q_t, ibc_s_b, &
-               ibc_s_t,ibc_sa_t, ibc_uv_b, ibc_uv_t,                           &
-               intermediate_timestep_count,                                    &
-               nesting_offline, nudging,                                       &
-               ocean, passive_scalar, rans_mode, rans_tke_e, tsc, use_cmax
+               ibc_s_t, ibc_uv_b, ibc_uv_t,                           &
+               intermediate_timestep_count, nesting_offline, nudging,          &
+               ocean_mode, passive_scalar, rans_mode, rans_tke_e, tsc, use_cmax
 
     USE grid_variables,                                                        &
@@ -221 +226 @@
 
     USE indices,                                                               &
-        ONLY:  nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg,             &
-               nzb, nzt
+        ONLY:  nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nzb, nzt
 
     USE kinds
 
-    USE bulk_cloud_model_mod,                                                  &
-        ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
+    USE ocean_mod,                                                             &
+        ONLY:  ibc_sa_t
 
     USE pegrid
@@ -529 +533 @@
 !
 !-- Boundary conditions for salinity
-    IF ( ocean )  THEN
+    IF ( ocean_mode )  THEN
 !
 !--    Bottom boundary: Neumann condition because salinity flux is always