Changeset 635 for codes/icosagcm/devel
- Timestamp:
- 12/12/17 22:44:52 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/unstructured/caldyn_unstructured.F90
r624 r635 24 24 caldyn_vert_cons=1 25 25 INTEGER(C_INT), BIND(C) :: caldyn_thermo=thermo_theta, caldyn_eta=eta_lag, & 26 caldyn_vert_variant=caldyn_vert_cons, nb_threads= 126 caldyn_vert_variant=caldyn_vert_cons, nb_threads=0 27 27 LOGICAL(C_BOOL), BIND(C) :: hydrostatic=.TRUE., debug_hevi_solver=.TRUE., rigid=.TRUE. 28 28 ! … … 84 84 INTEGER :: ij 85 85 86 !CALL CPU_TIME(time1)86 ! CALL CPU_TIME(time1) 87 87 time1=OMP_GET_WTIME() 88 88 … … 107 107 CALL caldyn_vert(drhodz,rhodz,theta,u, dmass_col,wflux,dtheta_rhodz,du_slow,wwuu) 108 108 END IF 109 109 !$OMP END PARALLEL 110 110 111 111 ELSE ! NH … … 368 368 PRINT *, MINVAL(right), MAXVAL(left) 369 369 PRINT *,' ... Done.' 370 IF(nb_threads==0) nb_threads=OMP_GET_MAX_THREADS() 370 371 PRINT *,'OpenMP : max_threads, num_procs, nb_threads', OMP_GET_MAX_THREADS(), omp_get_num_procs(), nb_threads 371 372
Note: See TracChangeset
for help on using the changeset viewer.