Changeset 772 for branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_cen2.F90
- Timestamp:
- 2007-12-17T12:59:33+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_cen2.F90
r719 r772 1 1 MODULE trcadv_cen2 2 !!====================================================================== ========2 !!====================================================================== 3 3 !! *** MODULE trcadv_cen2 *** 4 4 !! Ocean passive tracers: horizontal & vertical advective tracer trend 5 !!============================================================================== 6 #if defined key_passivetrc 5 !!====================================================================== 6 #if defined key_top 7 !!---------------------------------------------------------------------- 8 !! 'key_top' TOP models 7 9 !!---------------------------------------------------------------------- 8 10 !! trc_adv_cen2 : update the tracer trend with the horizontal … … 10 12 !! centered finite difference scheme 11 13 !!---------------------------------------------------------------------- 12 !! * Modules used13 14 USE oce_trc ! ocean dynamics and active tracers variables 14 15 USE trc ! ocean passive tracers variables … … 19 20 PRIVATE 20 21 21 !! * Accessibility22 22 PUBLIC trc_adv_cen2 ! routine called by trcstp.F90 23 23
Note: See TracChangeset
for help on using the changeset viewer.