Changeset 1194
- Timestamp:
- 2008-09-18T14:46:34+02:00 (16 years ago)
- Location:
- trunk/NEMO/TOP_SRC/LOBSTER
- Files:
-
- 3 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 -
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 -
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.