- Timestamp:
- 08/09/18 13:28:53 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dynamics/caldyn_kernels_base.F90
r628 r722 188 188 CALL trace_start("compute_caldyn_vert") 189 189 190 !$OMP BARRIER 191 190 192 CALL distrib_level(ij_begin,ij_end, ij_omp_begin,ij_omp_end) 191 193 … … 199 201 ELSE 200 202 201 !$OMP BARRIER202 203 !!! cumulate mass flux convergence from top to bottom 203 204 DO l = llm-1, 1, -1
Note: See TracChangeset
for help on using the changeset viewer.