Changeset 3840 for palm/trunk/SOURCE


Ignore:
Timestamp:
Mar 29, 2019 10:35:52 AM (3 years ago)
Author:
knoop
Message:

Moved ocean_prognostic_equations calls into module_interface

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/module_interface.f90

    r3837 r3840  
    240240               ocean_init,                                                     &
    241241               ocean_header,                                                   &
     242               ocean_prognostic_equations,                                     &
    242243               ocean_swap_timelevel,                                           &
    243244               ocean_3d_data_averaging,                                        &
     
    907908
    908909    IF ( gust_module_enabled )  CALL gust_prognostic_equations()
     910    IF ( ocean_mode          )  CALL ocean_prognostic_equations()
    909911
    910912
     
    927929
    928930    IF ( gust_module_enabled )  CALL gust_prognostic_equations( i, j, i_omp_start, tn )
     931    IF ( ocean_mode          )  CALL ocean_prognostic_equations( i, j, i_omp_start, tn )
    929932
    930933
  • palm/trunk/SOURCE/prognostic_equations.f90

    r3837 r3840  
    436436
    437437    USE ocean_mod,                                                             &
    438         ONLY:  ocean_prognostic_equations, stokes_drift_terms, stokes_force,   &
     438        ONLY:  stokes_drift_terms, stokes_force,   &
    439439               wave_breaking, wave_breaking_term
    440440
     
    14441444         
    14451445          ENDIF   ! Chemical equations
    1446 !
    1447 !--       Calculate prognostic equations for the ocean
    1448           IF ( ocean_mode )  THEN
    1449              CALL ocean_prognostic_equations( i, j, i_omp_start, tn )
    1450           ENDIF
    14511446       
    14521447          IF ( salsa )  THEN
     
    27032698       
    27042699       CALL cpu_log( log_point_s(92), 'salsa advec+diff+prog ', 'stop' )
    2705     ENDIF 
    2706 
    2707 !
    2708 !-- Calculate prognostic equations for the ocean
    2709     IF ( ocean_mode )  CALL ocean_prognostic_equations()
     2700    ENDIF
     2701
    27102702
    27112703 END SUBROUTINE prognostic_equations_vector
Note: See TracChangeset for help on using the changeset viewer.