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

devel : output theta and momentum fluxes

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r573 r603  
    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.