Changeset 493 for trunk/NEMO/TOP_SRC/trcdtr.F90
- Timestamp:
- 2006-09-01T15:58:46+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/trcdtr.F90
r433 r493 250 250 #endif 251 251 252 #if defined key_ trc_dta252 #if defined key_dtatrc 253 253 !! Initialization of tracer from a file 254 254 !! that may also be used for damping 255 CALL dta_trc( nit 000 )255 CALL dta_trc( nittrc000 ) 256 256 DO jk = 1, jptra 257 257 IF( lutini(jk) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.