Changeset 1077 for trunk/NEMO/TOP_SRC/trcdta.F90
- Timestamp:
- 2008-06-05T14:21:08+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/trcdta.F90
r1011 r1077 12 12 !! 'key_top' and 'key_dtatrc' TOP model + passive tracer data 13 13 !!---------------------------------------------------------------------- 14 !! dta_trc: read ocean passive tracer data14 !! trc_dta : read ocean passive tracer data 15 15 !!---------------------------------------------------------------------- 16 16 USE oce_trc … … 23 23 PRIVATE 24 24 25 PUBLIC trc_dta ! called in trc dtr.F90 and trcdmp.F9025 PUBLIC trc_dta ! called in trcini.F90 and trcdmp.F90 26 26 27 27 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk,jptra) :: trdta !: tracer data at given time-step … … 82 82 ! Initialization 83 83 iman = jpmois 84 i15 = nday /1684 i15 = nday / 16 85 85 imois = nmonth + i15 -1 86 86 IF( imois == 0 ) imois = iman
Note: See TracChangeset
for help on using the changeset viewer.