Changeset 3840 for palm/trunk/SOURCE/prognostic_equations.f90
 Timestamp:
 Mar 29, 2019 10:35:52 AM (4 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.