Changeset 1193 for trunk/NEMO/TOP_SRC/TRP/trcadv_cen2.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/trcadv_cen2.F90 (modified) (4 diffs)

trunk/NEMO/TOP_SRC/TRP/trcadv_cen2.F90

@@ -284 +284 @@
          ! 3. Save the horizontal advective trends for diagnostics
          ! -------------------------------------------------------
-!CDIR BEGIN COLLAPSE
          TRDTRC_XY : IF( l_trdtrc )THEN
 
@@ -342 +341 @@
 
          ENDIF TRDTRC_XY
-!CDIR END
          !                                                    ! ===========
       END DO                                                  ! tracer loop
@@ -415 +413 @@
          ! ----------------------------------------------------
 
-!CDIR BEGIN COLLAPSE
          TRDTRC_Z : IF( l_trdtrc )THEN
             ztrtrd(:,:,:) = 0.e0
@@ -435 +432 @@
 
          ENDIF TRDTRC_Z
-!CDIR END
          !                                                    ! ===========
       END DO                                                  ! tracer loop