- Timestamp:
- 10/08/18 10:49:07 (6 years ago)
- Location:
- codes/icosagcm/devel
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/Python/dynamico/meshes.py
r747 r749 181 181 def field_z(self,n=1): return zeros((n,self.ny,self.nx,self.llm)) 182 182 def field_w(self,n=1): return zeros((n,self.ny,self.nx,self.llm+1)) 183 def field_u(self,n=1): return zeros(( self.ny,2*self.nx,self.llm))183 def field_u(self,n=1): return zeros((n,self.ny,2*self.nx,self.llm)) 184 184 def field_ps(self,n=1): return zeros((n,self.ny,self.nx)) 185 185 def ucomp(self,u): -
codes/icosagcm/devel/Python/test/py/RSW2_MPAS_W02.py
r681 r749 45 45 print T, nt 46 46 47 caldyn = unst.Caldyn_RSW(mesh) 48 scheme = time_step.RK4(caldyn.bwd_fast_slow, dt) 49 #scheme = time_step.RKn_simple(1,caldyn.bwd_fast_slow, dt) # forward Euler scheme 47 scheme = time_step.RK4(None, dt) 50 48 print dt, scheme.csjl, scheme.cfjl 51 49 step = unst.caldyn_step_TRSW(mesh,scheme,nt) -
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.