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

Moved ocean_prognostic_equations calls into module_interface

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.