Changeset 4731 for palm/trunk/SOURCE/ocean_mod.f90

Timestamp:

Oct 7, 2020 1:25:11 PM (4 years ago)

Author:

schwenkel

Message:

Move exchange_horiz from time_integration to modules

File:

• palm/trunk/SOURCE/ocean_mod.f90 (modified) (7 diffs)

palm/trunk/SOURCE/ocean_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Move exchange_horiz from time_integration to modules
+!
+! 4671 2020-09-09 20:27:58Z pavelkrc
 ! Implementation of downward facing USM and LSM surfaces
 ! 
@@ -96 +99 @@
     USE control_parameters,                                                    &
         ONLY:  atmos_ocean_sign, bottom_salinityflux,                          &
-               constant_top_salinityflux, restart_data_format_output, ocean_mode, top_salinityflux, &
+               constant_top_salinityflux, restart_data_format_output, ocean_mode, top_salinityflux,&
                wall_salinityflux, loop_optimization, ws_scheme_sca
 
@@ -108 +111 @@
 
     USE indices,                                                               &
-        ONLY:  advc_flags_s, nxl, nxr, nyn, nys, nzb, nzt, wall_flags_total_0
+        ONLY:  advc_flags_s, nxl, nxr, nyn, nys, nzb, nzt, wall_flags_total_0, nbgp
 
     USE restart_data_mpi_io_mod,                                                                   &
@@ -117 +120 @@
         ONLY:  bc_h, surf_def_v, surf_def_h, surf_lsm_h, surf_lsm_v,           &
                surf_usm_h, surf_usm_v
+
+       USE exchange_horiz_mod,                                                                     &
+           ONLY:  exchange_horiz
+
 
     IMPLICIT NONE
@@ -202 +209 @@
     END INTERFACE ocean_data_output_3d
 
+    INTERFACE ocean_exchange_horiz
+       MODULE PROCEDURE ocean_exchange_horiz
+    END INTERFACE ocean_exchange_horiz
+
     INTERFACE ocean_header
        MODULE PROCEDURE ocean_header
@@ -273 +284 @@
     PUBLIC eqn_state_seawater, ocean_actions, ocean_check_data_output,         &
            ocean_check_data_output_pr, ocean_check_parameters,                 &
-           ocean_data_output_2d, ocean_data_output_3d,                         &
+           ocean_data_output_2d, ocean_data_output_3d, ocean_exchange_horiz,   &
            ocean_define_netcdf_grid, ocean_header, ocean_init,                 &
            ocean_init_arrays, ocean_parin, ocean_prognostic_equations,         &
@@ -1165 +1176 @@
 
  END SUBROUTINE ocean_data_output_3d
+
+
+!--------------------------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Exchange ghostpoints
+!--------------------------------------------------------------------------------------------------!
+    SUBROUTINE ocean_exchange_horiz( location )
+
+       CHARACTER (LEN=*), INTENT(IN) ::  location !< call location string
+
+       SELECT CASE ( location )
+
+          CASE ( 'before_prognostic_equation' )
+
+          CASE ( 'after_prognostic_equation' )
+
+             CALL exchange_horiz( sa_p, nbgp )
+             CALL exchange_horiz( rho_ocean, nbgp )
+             CALL exchange_horiz( prho, nbgp )
+
+       END SELECT
+
+    END SUBROUTINE ocean_exchange_horiz
+