Changeset 739


Ignore:
Timestamp:
2007-11-19T16:30:05+01:00 (14 years ago)
Author:
cetlod
Message:

Update modules for passive tracers transport trends computation, see ticket:13

File:
1 edited

Legend:

Unmodified
Added
Removed
  • tags/nemo_v2_3/NEMO/TOP_SRC/TRP/trcsbc.F90

    r501 r739  
    2424   !!---------------------------------------------------------------------- 
    2525   !!   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 $  
    2727   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
    2828   !!---------------------------------------------------------------------- 
     
    7474      zsrau = 1. / rauw 
    7575      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 
    7681 
    7782      DO jn = 1, jptra 
     
    8590               ! add the trend to the general tracer trend 
    8691               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 
    8795            END DO 
    8896         END DO 
Note: See TracChangeset for help on using the changeset viewer.