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 12945 for NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/TRA/traldf_iso.F90 – NEMO

Ignore:
Timestamp:
2020-05-18T14:22:30+02:00 (4 years ago)
Author:
hadcv
Message:

Correction

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/TRA/traldf_iso.F90

    r12944 r12945  
    197197         !!---------------------------------------------------------------------- 
    198198!!gm : bug.... why (x,:,:)?   (1,jpj,:) and (jpi,1,:) should be sufficient.... 
    199          zdit (Ntis2,:,:) = 0._wp     ;     zdit (Ntie2,:,:) = 0._wp 
    200          zdjt (Ntis2,:,:) = 0._wp     ;     zdjt (Ntie2,:,:) = 0._wp 
     199         zdit (__kIsm1_,:,:) = 0._wp     ;     zdit (__kIep1_,:,:) = 0._wp 
     200         zdjt (__kIsm1_,:,:) = 0._wp     ;     zdjt (__kIep1_,:,:) = 0._wp 
    201201         !!end 
    202202 
Note: See TracChangeset for help on using the changeset viewer.