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 2456 – NEMO

Changeset 2456


Ignore:
Timestamp:
2010-12-06T15:33:22+01:00 (13 years ago)
Author:
acc
Message:

nemo_v3_3_beta. Minor bug fix to traldf_iso_grif.F90 to correct uncompilable code checked in at revision 2454

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90

    r2454 r2456  
    160160                     zslope2 = zslope2 *zslope2 
    161161                     ah_wslp2(ji+ip,jj,jk+kp) = ah_wslp2(ji+ip,jj,jk+kp)    & 
    162                         &                     + ah * ( zbu * ze3wr / ( e1t(ji+ip,jj) * e2t(ji+ip,jj) ) ) * zslope2 
     162                        &                     + zah * ( zbu * ze3wr / ( e1t(ji+ip,jj) * e2t(ji+ip,jj) ) ) * zslope2 
    163163                     IF( ln_traldf_gdia ) THEN 
    164164                        zaei_slp = fsaeiw(ji+ip,jj,jk) * zslope_skew        !fsaeit(ji+ip,jj,jk)*zslope_skew 
Note: See TracChangeset for help on using the changeset viewer.