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

Timestamp:

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

Author:

raasch

Message:

modularization of the ocean code

File:

• palm/trunk/SOURCE/advec_ws.f90 (modified) (6 diffs)

palm/trunk/SOURCE/advec_ws.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! ocean renamed ocean_mode
+! 
+! 3274 2018-09-24 15:42:55Z knoop
 ! Modularization of all bulk cloud physics code components
 ! 
@@ -293 +296 @@
 
        USE control_parameters,                                                 &
-           ONLY:  humidity, loop_optimization, passive_scalar, ocean,          &
+           ONLY:  humidity, loop_optimization, passive_scalar, ocean_mode,     &
                   rans_tke_e, ws_scheme_mom, ws_scheme_sca
 
@@ -369 +372 @@
           ENDIF
 
-          IF ( ocean )  THEN
+          IF ( ocean_mode )  THEN
              ALLOCATE( sums_wssas_ws_l(nzb:nzt+1,0:threads_per_task-1) )
              sums_wssas_ws_l = 0.0_wp
@@ -454 +457 @@
              ENDIF
 
-             IF ( ocean )  THEN
+             IF ( ocean_mode )  THEN
                 ALLOCATE( flux_s_sa(nzb+1:nzt,0:threads_per_task-1),           &
                           diss_s_sa(nzb+1:nzt,0:threads_per_task-1) )
@@ -1084 +1087 @@
     
        USE control_parameters,                                                 &
-           ONLY:  humidity, passive_scalar, ocean, ws_scheme_mom, ws_scheme_sca
+           ONLY:  humidity, passive_scalar, ocean_mode, ws_scheme_mom,         &
+                  ws_scheme_sca
 
        USE kinds
@@ -1123 +1127 @@
              sums_wsnrs_ws_l = 0.0_wp
           ENDIF
-          IF ( ocean )  sums_wssas_ws_l = 0.0_wp
+          IF ( ocean_mode )  sums_wssas_ws_l = 0.0_wp
 
        ENDIF