Changeset 1194 for trunk/NEMO/TOP_SRC/LOBSTER/trcsed.F90
- Timestamp:
- 2008-09-18T14:46:34+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/LOBSTER/trcsed.F90
r1176 r1194 81 81 IF( l_trdtrc )THEN 82 82 ALLOCATE( ztrbio(jpi,jpj,jpk) ) 83 !CDIR COLLAPSE84 83 ztrbio(:,:,:) = tra(:,:,:,jpdet) 85 84 ENDIF … … 117 116 118 117 IF( l_trdtrc ) THEN 119 !CDIRR COLLAPSE120 118 ztrbio(:,:,:) = tra(:,:,:,jpdet) - ztrbio(:,:,:) 121 119 jl = 8
Note: See TracChangeset
for help on using the changeset viewer.