Changeset 824 for branches/dev_002_LIM/NEMO/OPA_SRC/TRA/traadv_cen2.F90

Timestamp:

2008-03-06T12:37:37+01:00 (16 years ago)

Author:

rblod

Message:

Delete LIM_SRC and add corresponding modifications in Ocean part

File:

• branches/dev_002_LIM/NEMO/OPA_SRC/TRA/traadv_cen2.F90 (modified) (1 diff)

branches/dev_002_LIM/NEMO/OPA_SRC/TRA/traadv_cen2.F90

@@ -147 +147 @@
                zind(ji,jj,jk) =  MAX ( upsrnfh(ji,jj) * upsrnfz(jk),     &  ! changing advection scheme near runoff
                   &                    upsadv(ji,jj)                     &  ! in the vicinity of some straits
-#if defined key_ice_lim
+#if defined key_ice_lim || defined key_lim2
                   &                  , tmask(ji,jj,jk)                   &  ! half upstream tracer fluxes
                   &                  * MAX( 0., SIGN( 1., fzptn(ji,jj)   &  ! if tn < ("freezing"+0.1 )