Changeset 1282 for trunk/NEMO/TOP_SRC/TRP/trcadv_muscl2.F90

Timestamp:

2009-02-03T14:03:33+01:00 (15 years ago)

Author:

cetlod

Message:

suppression of obsolete CPP keys, see ticket:310

File:

• trunk/NEMO/TOP_SRC/TRP/trcadv_muscl2.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/TRP/trcadv_muscl2.F90

@@ -266 +266 @@
 #if defined key_trc_diatrd
                   ! recompute the trends in i- and j-direction as Uh gradh(T)
-#   if defined key_s_coord || defined key_partial_steps
+#   if ! defined key_zco
                   zfui =  e2u(ji  ,jj) * fse3u(ji,  jj,jk) * un(ji,  jj,jk)   &
                      & -  e2u(ji-1,jj) * fse3u(ji-1,jj,jk) * un(ji-1,jj,jk)