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

Changeset 2469


Ignore:
Timestamp:
2010-12-08T15:44:11+01:00 (13 years ago)
Author:
cetlod
Message:

v3.3beta : minor bug correction on traldf_iso(*), see ticket #771

Location:
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90

    r2454 r2469  
    223223            CALL lbc_lnk( z2d, 'U', -1. ) 
    224224            CALL iom_put( "udiff_heattr", z2d )                  ! heat transport in i-direction 
     225            z2d(:,:) = 0._wp  
    225226            DO jk = 1, jpkm1 
    226227               DO jj = 2, jpjm1 
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90

    r2456 r2469  
    326326            CALL lbc_lnk( z2d, 'U', -1. ) 
    327327            CALL iom_put( "udiff_heattr", z2d )                  ! heat transport in i-direction 
     328            z2d(:,:) = 0._wp  
    328329            DO jk = 1, jpkm1 
    329330               DO jj = 2, jpjm1 
Note: See TracChangeset for help on using the changeset viewer.