Changeset 749 for codes/icosagcm/devel/src/unstructured
- Timestamp:
- 10/08/18 10:49:07 (6 years ago)
- Location:
- codes/icosagcm/devel/src/unstructured
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/unstructured/caldyn_unstructured.F90
r698 r749 34 34 NUM :: tau, gamma, tau2_g, tau2_g2, g2, gm2, vreff, Rd_preff 35 35 INTEGER :: iter 36 LOGICAL :: debug_hevi_solver 36 37 DECLARE_INDICES 37 38 NUM :: rho_ij, X_ij, Y_ij, wil, rho_c2_mik, c2_mik, ml_g2 … … 52 53 #endif 53 54 55 debug_hevi_solver=.FALSE. 56 !$OMP MASTER 57 debug_hevi_solver = debug_hevi_solver_ 58 !$OMP END MASTER 59 54 60 START_TRACE(id_NH_geopot, 7,0,0) 55 61 #include "../kernels_unst/compute_NH_geopot.k90" 56 62 STOP_TRACE 63 64 !$OMP MASTER 65 debug_hevi_solver_ = debug_hevi_solver 66 !$OMP END MASTER 57 67 58 68 #if COLUMN -
codes/icosagcm/devel/src/unstructured/data_unstructured.F90
r747 r749 12 12 INDEX, BIND(C) :: caldyn_thermo=thermo_theta, caldyn_eta=eta_lag, & 13 13 caldyn_vert_variant=caldyn_vert_cons, nb_threads=0, nb_stage=0 14 LOGICAL(C_BOOL), BIND(C) :: hydrostatic=.TRUE., debug_hevi_solver=.TRUE. 14 LOGICAL(C_BOOL), BIND(C) :: hydrostatic=.TRUE. 15 LOGICAL(C_BOOL), BIND(C, NAME='debug_hevi_solver') :: debug_hevi_solver_=.TRUE. 15 16 16 17 #ifdef CPP_MIXED_PREC
Note: See TracChangeset
for help on using the changeset viewer.