Changeset 3840 for palm/trunk/SOURCE/prognostic_equations.f90
- Timestamp:
- Mar 29, 2019 10:35:52 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/prognostic_equations.f90
r3837 r3840 436 436 437 437 USE ocean_mod, & 438 ONLY: ocean_prognostic_equations,stokes_drift_terms, stokes_force, &438 ONLY: stokes_drift_terms, stokes_force, & 439 439 wave_breaking, wave_breaking_term 440 440 … … 1444 1444 1445 1445 ENDIF ! Chemical equations 1446 !1447 !-- Calculate prognostic equations for the ocean1448 IF ( ocean_mode ) THEN1449 CALL ocean_prognostic_equations( i, j, i_omp_start, tn )1450 ENDIF1451 1446 1452 1447 IF ( salsa ) THEN … … 2703 2698 2704 2699 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 2710 2702 2711 2703 END SUBROUTINE prognostic_equations_vector
Note: See TracChangeset
for help on using the changeset viewer.