Changeset 677 for codes/icosagcm/devel
- Timestamp:
- 02/08/18 15:28:09 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90
r665 r677 141 141 !$OMP PARALLEL NUM_THREADS(nb_threads) 142 142 143 !$OMP DO SCHEDULE(STATIC) 144 DO ij=1,primal_num 145 wflux(1,ij)=0. 146 wflux(llm+1,ij)=0. 147 END DO 148 !$OMP END DO 149 143 150 DO step=1, nstep 144 151 DO stage=1, nb_stage … … 166 173 167 174 ELSE ! NH 168 !$OMP DO SCHEDULE(STATIC)169 DO ij=1,primal_num170 wflux(1,ij)=0.171 wflux(llm+1,ij)=0.172 END DO173 !$OMP END DO174 175 CALL compute_theta(mass_col,rhodz,theta_rhodz, theta) 175 176 CALL compute_caldyn_solver(tauj(stage),rhodz,theta, bufm1,bufm2,bufm3, pk,geopot,W, &
Note: See TracChangeset
for help on using the changeset viewer.