Changeset 3840 for palm/trunk/SOURCE/module_interface.f90

Timestamp:

Mar 29, 2019 10:35:52 AM (6 years ago)

Author:

knoop

Message:

Moved ocean_prognostic_equations calls into module_interface

File:

• palm/trunk/SOURCE/module_interface.f90 (modified) (3 diffs)

palm/trunk/SOURCE/module_interface.f90

@@ -240 +240 @@
                ocean_init,                                                     &
                ocean_header,                                                   &
+               ocean_prognostic_equations,                                     &
                ocean_swap_timelevel,                                           &
                ocean_3d_data_averaging,                                        &
@@ -907 +908 @@
 
     IF ( gust_module_enabled )  CALL gust_prognostic_equations()
+    IF ( ocean_mode          )  CALL ocean_prognostic_equations()
 
 
@@ -927 +929 @@
 
     IF ( gust_module_enabled )  CALL gust_prognostic_equations( i, j, i_omp_start, tn )
+    IF ( ocean_mode          )  CALL ocean_prognostic_equations( i, j, i_omp_start, tn )