Changeset 612 for codes/icosagcm/devel/src/diagnostics
- Timestamp:
- 11/22/17 00:06:57 (7 years ago)
- Location:
- codes/icosagcm/devel/src/diagnostics
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/diagnostics/diagflux.F90
r603 r612 170 170 ! => loop over interior region 171 171 CALL distrib_level(ij_begin_ext, ij_end_ext, ij_omp_begin_ext,ij_omp_end_ext) 172 #include "../kernels /energy_fluxes.k90"172 #include "../kernels_hex/energy_fluxes.k90" 173 173 END SUBROUTINE compute_diagflux_energy 174 174 -
codes/icosagcm/devel/src/diagnostics/wind.F90
r587 r612 55 55 REAL(rstd), PARAMETER :: scale=1. 56 56 REAL(rstd) :: fac, ue_le, cx,cy,cz, ux,uy,uz 57 #include "../kernels /wind_centered.k90"57 #include "../kernels_hex/wind_centered.k90" 58 58 END SUBROUTINE compute_wind_centered 59 59 … … 64 64 INTEGER :: ij,l 65 65 REAL(rstd) :: fac, ue_le, cx,cy,cz, ux,uy,uz 66 #include "../kernels /flux_centered.k90"66 #include "../kernels_hex/flux_centered.k90" 67 67 END SUBROUTINE compute_flux_centered 68 68
Note: See TracChangeset
for help on using the changeset viewer.