Ignore:
Timestamp:
10/24/17 01:32:57 (7 years ago)
Author:
dubos
Message:

trunk : backported r600-603 from devel

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/dynamics/caldyn_kernels_hevi.F90

    r580 r604  
    122122    INTEGER    :: iter, ij, l, ij_omp_begin_ext, ij_omp_end_ext 
    123123 
    124     CALL distrib_level(ij_end_ext-ij_begin_ext+1,ij_omp_begin_ext,ij_omp_end_ext) 
    125     ij_omp_begin_ext=ij_omp_begin_ext+ij_begin_ext-1 
    126     ij_omp_end_ext=ij_omp_end_ext+ij_begin_ext-1 
     124    CALL distrib_level(ij_begin_ext,ij_end_ext, ij_omp_begin_ext,ij_omp_end_ext) 
    127125 
    128126    IF(dysl) THEN 
Note: See TracChangeset for help on using the changeset viewer.