Ignore:
Timestamp:
08/09/18 13:55:51 (6 years ago)
Author:
dubos
Message:

devel : updated generated kernels ; added missing SIMD directives

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/kernels_hex/caldyn_wflux.k90

    r624 r724  
    22   !---------------------------- caldyn_wflux ---------------------------------- 
    33   DO l = llm-1,1,-1 
     4      !DIR$ SIMD 
    45      DO ij=ij_omp_begin,ij_omp_end 
    56         ! cumulate mass flux convergence from top to bottom 
    … …  
    78      END DO 
    89   END DO 
     10   !DIR$ SIMD 
    911   DO ij=ij_omp_begin,ij_omp_end 
    1012      dmass_col(ij) = convm(ij,1) 
    1113   END DO 
    1214   DO l = 2,llm 
     15      !DIR$ SIMD 
    1316      DO ij=ij_omp_begin,ij_omp_end 
    1417         ! Compute vertical mass flux (l=1,llm+1 set to zero at init) 
Note: See TracChangeset for help on using the changeset viewer.