Changeset 503 for trunk/NEMO/OPA_SRC/step.F90
- Timestamp:
- 2006-09-27T10:52:29+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/step.F90
r474 r503 102 102 USE trdicp ! Ocean momentum/tracers trends (trd_wri routine) 103 103 USE trdmld ! mixed-layer trends (trd_mld routine) 104 USE trdmld_rst ! restart for mixed-layer trends 105 USE trdmod_oce ! ocean momentum/tracers trends 104 106 USE trdvor ! vorticity budget (trd_vor routine) 105 107 USE diagap ! hor. mean model-data gap (dia_gap routine) … … 424 426 CALL rst_write ( kstp ) ! ocean model: restart file output 425 427 IF( lk_obc ) CALL obc_rst_wri( kstp ) ! ocean model: open boundary restart file output 428 IF( lk_trdmld ) CALL trd_mld_rst_write( kstp ) ! ocean model: restart file output for trends diagnostics 426 429 CALL dia_wri ( kstp, indic ) ! ocean model: outputs 427 430
Note: See TracChangeset
for help on using the changeset viewer.