Changeset 657 for codes/icosagcm/devel/src/dynamics/caldyn_kernels_hevi.F90
- Timestamp:
- 12/30/17 01:56:49 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dynamics/caldyn_kernels_hevi.F90
r612 r657 118 118 REAL(rstd) :: D_il(iim*jjm,llm+1) ! Thomas algorithm 119 119 REAL(rstd) :: gamma, rho_ij, X_ij, Y_ij 120 REAL(rstd) :: wil, tau2_g, g2, gm2, ml_g2, c2_mik 120 REAL(rstd) :: wil, tau2_g, g2, gm2, ml_g2, c2_mik, vreff 121 121 122 122 INTEGER :: iter, ij, l, ij_omp_begin_ext, ij_omp_end_ext … … 282 282 REAL(rstd) :: berni(iim*jjm,llm) ! (W/m_il)^2 283 283 REAL(rstd) :: berni1(iim*jjm) ! (W/m_il)^2 284 REAL(rstd) :: gamma, rho_ij, T_ij, X_ij, Y_ij, vreff, Rd, Cvd 284 REAL(rstd) :: gamma, rho_ij, T_ij, X_ij, Y_ij, vreff, Rd, Cvd, Rd_preff 285 285 INTEGER :: ij, l 286 286 … … 292 292 293 293 !$OMP BARRIER 294 295 #include "../kernels_hex/caldyn_mil.k90" 296 IF(tau>0) THEN ! solve implicit problem for geopotential 297 CALL compute_NH_geopot(tau,phis, rhodz, m_il, theta, W, geopot) 298 END IF 294 299 #define PHI_BOT(ij) phis(ij) 295 #define PHI_BOT_VAR phis296 300 #include "../kernels_hex/caldyn_solver.k90" 297 #undef PHI_BOT_VAR298 301 #undef PHI_BOT 299 302 !$OMP BARRIER
Note: See TracChangeset
for help on using the changeset viewer.