Ignore:
Timestamp:
06/12/19 00:45:02 (5 years ago)
Author:
dubos
Message:

devel/unstructured : caldyn_BC & legacy_to_DEC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/time/euler_scheme.f90

    r867 r885  
    160160       IF(caldyn_eta==eta_mass .AND. is_omp_first_level) THEN ! update ps 
    161161          ps=f_ps(ind) 
    162           !DIR$ SIMD 
    163           DO ij=ij_begin,ij_end 
    164              ps(ij)=(ps(ij)-ptop)/g ! convert ps to column-integrated mass 
    165           ENDDO 
     162          ps(:)=(ps(:)-ptop)/g 
    166163       END IF 
    167164 
Note: See TracChangeset for help on using the changeset viewer.