Changeset 2646 for branches/dev_r2586_dynamic_mem
- Timestamp:
- 2011-03-03T13:24:33+01:00 (13 years ago)
- Location:
- branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90
r2643 r2646 39 39 !* Fortran utilities 40 40 USE lib_fortran 41 42 !* Lateral boundary conditions 43 USE lbclnk 41 44 42 45 !* physical constants * -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r2643 r2646 64 64 ELSE ; CALL trc_dia( kt ) 65 65 ENDIF 66 !CALL trc_sms( kt ) ! tracers: sink and source66 CALL trc_sms( kt ) ! tracers: sink and source 67 67 CALL trc_trp( kt ) ! transport of passive tracers 68 68 IF( kt == nit000 ) CALL iom_close( numrtr ) ! close input passive tracers restart file
Note: See TracChangeset
for help on using the changeset viewer.