Ignore:
Timestamp:
12/20/17 15:47:20 (6 years ago)
Author:
dubos
Message:

devel/unstructured : OpenMP bugfix

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/unstructured/caldyn_unstructured.F90

    r642 r645  
    107107  DBL :: dF_deta, dFu_deta 
    108108  wwuu=0. 
     109  !$OMP BARRIER 
    109110#include "../kernels_unst/caldyn_wflux.k90" 
    110111#include "../kernels_unst/caldyn_dmass.k90" 
    … …  
    112113END SUBROUTINE caldyn_vert 
    113114 
    114 SUBROUTINE compute_coriolis(hflux,theta,qu, convm,dtheta_rhodz,du) 
     115SUBROUTINE compute_coriolis(hflux,theta,qu,Ftheta, convm,dtheta_rhodz,du) 
    115116  FIELD_U     :: hflux, Ftheta, qu, du 
    116117  FIELD_MASS  :: convm 
Note: See TracChangeset for help on using the changeset viewer.