Changeset 1193 for trunk/NEMO/TOP_SRC/TRP/trcbbc.F90

Timestamp:

2008-09-18T14:45:43+02:00 (16 years ago)

Author:

cetlod

Message:

Correction of transport module to ensure reproductibility for TOP configurations, see ticket:253

File:

• trunk/NEMO/TOP_SRC/TRP/trcbbc.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/TRP/trcbbc.F90

@@ -103 +103 @@
          DO jn = 1, jptra                                        ! tracer loop
             !                                                    ! ===========
-!CDIR COLLAPSE
             IF( l_trdtrc )  ztrtrd(:,:,:) = tra(:,:,:,jn)  ! save trends
 
@@ -120 +119 @@
             
             IF( l_trdtrc ) THEN
-!CDIR COLLAPSE
                ztrtrd(:,:,:) = tra(:,:,:,jn) - ztrtrd(:,:,:)
                IF (luttrd(jn)) CALL trd_mod_trc(ztrtrd, jn, jptrc_trd_bbc, kt)