Changeset 1193 for trunk/NEMO/TOP_SRC/TRP/trcrad.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/trcrad.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/TRP/trcrad.F90

@@ -125 +125 @@
          DO jn = jp_sms0, jp_sms1
          !                                                        ! ===========
-         ztrcorb = 0.e0   ;   ztrmasb = 0.e0
-         ztrcorn = 0.e0   ;   ztrmasn = 0.e0
-
-!CDIR COLLAPSE
-         IF( l_trdtrc ) THEN
-            ztrtrdb(:,:,:) = ptrb(:,:,:,jn)                        ! save input trb for trend computation
-            ztrtrdn(:,:,:) = ptrn(:,:,:,jn)                        ! save input trn for trend computation
-         ENDIF
+            ztrcorb = 0.e0   ;   ztrmasb = 0.e0
+            ztrcorn = 0.e0   ;   ztrmasn = 0.e0
+
+           IF( l_trdtrc ) THEN
+              ztrtrdb(:,:,:) = ptrb(:,:,:,jn)                        ! save input trb for trend computation
+              ztrtrdn(:,:,:) = ptrn(:,:,:,jn)                        ! save input trn for trend computation
+           ENDIF