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 2240 for branches/DEV_r2106_LOCEAN2010/NEMO/NST_SRC/agrif_opa_update.F90 – NEMO

Ignore:
Timestamp:
2010-10-13T10:48:48+02:00 (14 years ago)
Author:
cetlod
Message:

Suppression of key_zco everywhere in the code

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/DEV_r2106_LOCEAN2010/NEMO/NST_SRC/agrif_opa_update.F90

    r1587 r2240  
    198198               DO ji=i1,i2 
    199199                  tabres(ji,jj,jk) = e2u(ji,jj) * un(ji,jj,jk) 
    200 #if ! defined key_zco 
    201                   tabres(ji,jj,jk) = tabres(ji,jj,jk) * fse3u(ji,jj,jk) 
    202 #endif 
    203200               END DO 
    204201            END DO 
    … …  
    211208                  un(ji,jj,jk) = tabres(ji,jj,jk) / (e2u(ji,jj)) 
    212209                  un(ji,jj,jk) = un(ji,jj,jk) * umask(ji,jj,jk) 
    213 #if ! defined key_zco 
    214210                  un(ji,jj,jk) = un(ji,jj,jk) / fse3u(ji,jj,jk) 
    215 #endif 
    216211               END DO 
    217212            END DO 
    … …  
    240235               DO ji=i1,i2 
    241236                  tabres(ji,jj,jk) = e1v(ji,jj) * vn(ji,jj,jk) 
    242 #if ! defined key_zco 
    243237                  tabres(ji,jj,jk) = tabres(ji,jj,jk) * fse3v(ji,jj,jk) 
    244 #endif 
    245238               END DO 
    246239            END DO 
    … …  
    253246                  vn(ji,jj,jk) = tabres(ji,jj,jk) / (e1v(ji,jj)) 
    254247                  vn(ji,jj,jk) = vn(ji,jj,jk) * vmask(ji,jj,jk) 
    255 #if ! defined key_zco 
    256248                  vn(ji,jj,jk) = vn(ji,jj,jk) / fse3v(ji,jj,jk) 
    257 #endif 
    258249               END DO 
    259250            END DO 
Note: See TracChangeset for help on using the changeset viewer.