Changeset 2050 for trunk/NEMO
- Timestamp:
- 2010-08-13T10:23:18+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/MY_TRC/trcctl_my_trc.F90
r1264 r2050 40 40 IF(lwp) WRITE(numout,*) ' use COLOR tracer ' 41 41 42 DO j n= 1, jp_my_trc42 DO jl = 1, jp_my_trc 43 43 jn = jp_myt0 + jl - 1 44 44 WRITE(ctrcnm(jn),'(a,i2.2)') 'CLR',jn
Note: See TracChangeset
for help on using the changeset viewer.