- Timestamp:
- 2007-11-19T16:30:05+01:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
tags/nemo_v2_3/NEMO/TOP_SRC/TRP/trcsbc.F90
r501 r739 24 24 !!---------------------------------------------------------------------- 25 25 !! TOP 1.0 , LOCEAN-IPSL (2005) 26 !! $Header $26 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trcsbc.F90,v 1.10 2007/10/12 09:26:30 opalod Exp $ 27 27 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 28 28 !!---------------------------------------------------------------------- … … 74 74 zsrau = 1. / rauw 75 75 IF( .NOT. ln_sco ) zse3t = 1. / fse3t(1,1,1) 76 #if defined key_trc_diatrd 77 DO jn = 1, jptra 78 IF (luttrd(jn)) trtrd(:,:,:,ikeep(jn),jpdiatrc) = 0.0 79 END DO 80 #endif 76 81 77 82 DO jn = 1, jptra … … 85 90 ! add the trend to the general tracer trend 86 91 tra(ji,jj,1,jn) = tra(ji,jj,1,jn) + ztra 92 #if defined key_trc_diatrd 93 IF (luttrd(jn)) trtrd(ji,jj,1,ikeep(jn),jpdiatrc) = trtrd(ji,jj,1,jn,jpdiatrc)+ztra 94 #endif 87 95 END DO 88 96 END DO
Note: See TracChangeset
for help on using the changeset viewer.