Changeset 949 for codes/icosagcm/devel/src
- Timestamp:
- 07/13/19 17:01:16 (5 years ago)
- Location:
- codes/icosagcm/devel/src
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/base/init_grid_param.f90
r938 r949 85 85 compute_pvort_only => compute_pvort_only_unst 86 86 compute_theta => compute_theta_unst 87 ! compute_geopot=> compute_geopot_unst87 compute_geopot => compute_geopot_unst 88 88 compute_caldyn_fast => compute_caldyn_fast_unst 89 89 compute_caldyn_slow_hydro => compute_caldyn_slow_hydro_unst 90 compute_caldyn_coriolis => compute_caldyn_coriolis_unst90 compute_caldyn_coriolis => compute_caldyn_coriolis_unst 91 91 END SUBROUTINE select_compute_unst 92 92 -
codes/icosagcm/devel/src/dynamics/caldyn_hevi.f90
r938 r949 6 6 USE compute_caldyn_vert_NH_mod, ONLY : compute_caldyn_vert_NH => compute_caldyn_vert_NH_manual 7 7 USE compute_caldyn_kv_mod, ONLY : compute_caldyn_kv 8 USE compute_caldyn_slow_hydro_mod, ONLY : compute_caldyn_slow_hydro => compute_caldyn_slow_hydro_manual9 8 USE compute_caldyn_slow_NH_mod, ONLY : compute_caldyn_slow_NH 10 9 USE compute_caldyn_solver_mod, ONLY : compute_caldyn_solver … … 32 31 USE checksum_mod 33 32 USE compute_caldyn_mod, ONLY : compute_pvort_only, compute_theta, & 34 compute_geopot, compute_caldyn_fast, compute_caldyn_coriolis 33 compute_geopot, compute_caldyn_fast, compute_caldyn_coriolis, compute_caldyn_slow_hydro 35 34 IMPLICIT NONE 36 35 LOGICAL,INTENT(IN) :: write_out -
codes/icosagcm/devel/src/time/timeloop_gcm.f90
r909 r949 252 252 !$OMP END MASTER 253 253 254 IF(grid_type == grid_unst) RETURN255 256 254 DO it=itau0+1,itau0+itaumax 257 255 IF (is_master) CALL print_iteration(it, itau0, itaumax, start_clock, rate_clock) -
codes/icosagcm/devel/src/unstructured/data_unstructured.F90
r940 r949 5 5 USE grid_param, ONLY : llm, nqdyn, primal_num, edge_num, dual_num, & 6 6 max_primal_deg, max_dual_deg, max_trisk_deg 7 USE geometry, ONLY : le, le_de, fv, Av, Ai 7 USE geometry, ONLY : le, le_de, fv, Av, Ai, wee, Riv2 8 8 #ifdef CPP_USING_OMP 9 9 USE OMP_LIB … … 43 43 NUM1(max_nb_stage), BIND(C) :: tauj ! diagonal of fast Butcher tableau 44 44 NUM2(max_nb_stage,max_nb_stage), BIND(C) :: cslj, cflj ! slow and fast modified Butcher tableaus 45 NUM2(:,:), POINTER :: centroid, xyz_v, Riv2, ap,bp, mass_bl, mass_dak, mass_dbk 46 NUM3(:,:,:), POINTER :: wee 45 NUM2(:,:), POINTER :: centroid, xyz_v, ap,bp, mass_bl, mass_dak, mass_dbk 47 46 INTEGER(C_INT), BIND(C) :: comm_icosa 48 47 -
codes/icosagcm/devel/src/unstructured/init_unstructured.f90
r940 r949 219 219 USE field_mod 220 220 USE domain_mod, ONLY : swap_needed, domain, domain_glo 221 USE geometry, ONLY : geom, lon_i, lat_i, lon_e, lat_e, ep_e 221 USE geometry, ONLY : geom, lon_i, lat_i, lon_e, lat_e, ep_e, Riv2, wee 222 222 USE netcdf_mod, ONLY : nf90_close 223 223 IMPLICIT NONE … … 242 242 swap_needed = .TRUE. 243 243 CALL swap_geometry(1) 244 swap_needed = .FALSE. 244 245 245 246 PRINT *, 'read_local_mesh : primal_num =', primal_num, domain_glo(1)%primal_own%ncell … … 311 312 DEALLOCATE(angle_e) 312 313 313 CALL swap_geometry(1)314 swap_needed = .FALSE.315 316 314 END SUBROUTINE read_local_mesh 317 315
Note: See TracChangeset
for help on using the changeset viewer.