Changeset 12945


Ignore:
Timestamp:
2020-05-18T14:22:30+02:00 (7 days 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.