Changeset 1194 for trunk/NEMO/TOP_SRC/LOBSTER/trcexp.F90
- Timestamp:
- 2008-09-18T14:46:34+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/LOBSTER/trcexp.F90
r1176 r1194 76 76 IF( l_trdtrc )THEN 77 77 ALLOCATE( ztrbio(jpi,jpj,jpk) ) 78 !CDIR COLLAPSE79 78 ztrbio(:,:,:) = tra(:,:,:,jpno3) 80 79 ENDIF … … 175 174 ! 176 175 IF( l_trdtrc ) THEN 177 !CDIRR COLLAPSE178 176 ztrbio(:,:,:) = tra(:,:,:,jpno3) - ztrbio(:,:,:) 179 177 jl = 17
Note: See TracChangeset
for help on using the changeset viewer.