Changeset 1194 for trunk/NEMO/TOP_SRC/LOBSTER/trcbio.F90
- Timestamp:
- 2008-09-18T14:46:34+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/LOBSTER/trcbio.F90
r1176 r1194 100 100 IF( l_trdtrc )THEN 101 101 ALLOCATE( ztrbio(jpi,jpj,jpk,jp_lobster_trd) ) 102 !CDIR COLLAPSE103 102 ztrbio(:,:,:,:) = 0. 104 103 ENDIF … … 430 429 ! 431 430 IF( l_trdtrc ) THEN 432 !CDIRR COLLAPSE433 431 DO jl = 1, jp_lobster_trd 434 432 CALL trd_mod_trc( ztrbio(:,:,:,jl), jl, kt ) ! handle the trend
Note: See TracChangeset
for help on using the changeset viewer.