New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1282 – NEMO

Changeset 1282


Ignore:
Timestamp:
2009-02-03T14:03:33+01:00 (15 years ago)
Author:
cetlod
Message:

suppression of obsolete CPP keys, see ticket:310

Location:
trunk/NEMO/TOP_SRC/TRP
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/TRP/trcadv_cen2.F90

    r1193 r1282  
    256256#if defined key_trc_diatrd 
    257257                  ! recompute the trends in i- and j-direction as Uh gradh(T) 
    258 # if defined key_s_coord || defined key_partial_steps 
     258# if ! defined key_zco 
    259259                  zfui = 0.5 * e2u(ji  ,jj) * fse3u(ji,  jj,jk) * zun(ji,  jj,jk) 
    260260                  zfui1= 0.5 * e2u(ji-1,jj) * fse3u(ji-1,jj,jk) * zun(ji-1,jj,jk) 

  • trunk/NEMO/TOP_SRC/TRP/trcadv_muscl.F90

    r1264 r1282  
    217217#if defined key_trc_diatrd 
    218218                  ! recompute the trends in i- and j-direction as Uh gradh(T) 
    219 #   if defined key_s_coord || defined key_partial_steps 
     219#   if ! defined key_zco 
    220220                  zfui =  e2u(ji  ,jj) * fse3u(ji,  jj,jk) * un(ji,  jj,jk)   & 
    221221                     & -  e2u(ji-1,jj) * fse3u(ji-1,jj,jk) * un(ji-1,jj,jk) 

  • trunk/NEMO/TOP_SRC/TRP/trcadv_muscl2.F90

    r1264 r1282  
    266266#if defined key_trc_diatrd 
    267267                  ! recompute the trends in i- and j-direction as Uh gradh(T) 
    268 #   if defined key_s_coord || defined key_partial_steps 
     268#   if ! defined key_zco 
    269269                  zfui =  e2u(ji  ,jj) * fse3u(ji,  jj,jk) * un(ji,  jj,jk)   & 
    270270                     & -  e2u(ji-1,jj) * fse3u(ji-1,jj,jk) * un(ji-1,jj,jk) 
Note: See TracChangeset for help on using the changeset viewer.