Changeset 938 for codes/icosagcm/devel/src/dynamics/compute_caldyn.f90
- Timestamp:
- 07/03/19 18:31:43 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dynamics/compute_caldyn.f90
r935 r938 46 46 END SUBROUTINE comp_caldyn_fast 47 47 48 SUBROUTINE comp_caldyn_slow_hydro(zero, u,rhodz,hv,Kv, berni, hflux,du) 49 IMPORT 50 LOGICAL, INTENT(IN) :: zero 51 REAL(rstd),INTENT(IN) :: u(iim_jjm_u, llm_) ! prognostic "velocity" 52 REAL(rstd),INTENT(IN) :: rhodz(iim_jjm_i, llm_) 53 REAL(rstd),INTENT(IN) :: hv(iim_jjm_v, llm_) ! height/mass averaged to vertices 54 REAL(rstd),INTENT(IN) :: Kv(iim_jjm_v, llm_) ! kinetic energy at vertices 55 REAL(rstd), INTENT(OUT) :: berni(iim_jjm_i, llm_) ! Bernoulli function 56 REAL(rstd),INTENT(OUT) :: hflux(iim_jjm_u, llm_) ! hflux in kg/s 57 REAL(rstd),INTENT(INOUT) :: du(iim_jjm_u, llm_) 58 END SUBROUTINE comp_caldyn_slow_hydro 48 SUBROUTINE comp_caldyn_slow_hydro(zero, u,rhodz,hv,Kv, berni, hflux,du) 49 IMPORT 50 LOGICAL, INTENT(IN) :: zero 51 REAL(rstd),INTENT(IN) :: u(iim_jjm_u, llm_) ! prognostic "velocity" 52 REAL(rstd),INTENT(IN) :: rhodz(iim_jjm_i, llm_) 53 REAL(rstd),INTENT(IN) :: hv(iim_jjm_v, llm_) ! height/mass averaged to vertices 54 REAL(rstd),INTENT(IN) :: Kv(iim_jjm_v, llm_) ! kinetic energy at vertices 55 REAL(rstd), INTENT(OUT) :: berni(iim_jjm_i, llm_) ! Bernoulli function 56 REAL(rstd),INTENT(OUT) :: hflux(iim_jjm_u, llm_) ! hflux in kg/s 57 REAL(rstd),INTENT(INOUT) :: du(iim_jjm_u, llm_) 58 END SUBROUTINE comp_caldyn_slow_hydro 59 60 SUBROUTINE comp_caldyn_coriolis(hflux,theta,qu, Ftheta, convm,dtheta_rhodz,du) 61 IMPORT 62 REAL(rstd),INTENT(IN) :: hflux(iim_jjm_u, llm_) ! hflux in kg/s 63 REAL(rstd),INTENT(IN) :: theta(iim_jjm_i, llm_, nqdyn_) ! active scalars 64 REAL(rstd),INTENT(IN) :: qu(iim_jjm_u, llm_) 65 REAL(rstd), INTENT(OUT) :: Ftheta(iim_jjm_u, llm_) ! potential temperature flux 66 REAL(rstd),INTENT(OUT) :: convm(iim_jjm_i, llm_) ! mass flux convergence 67 REAL(rstd),INTENT(OUT) :: dtheta_rhodz(iim_jjm_i, llm_, nqdyn_) 68 REAL(rstd),INTENT(INOUT) :: du(iim_jjm_u, llm_) 69 END SUBROUTINE comp_caldyn_coriolis 59 70 60 71 END INTERFACE … … 65 76 PROCEDURE(comp_caldyn_fast), POINTER :: compute_caldyn_fast => NULL() 66 77 PROCEDURE(comp_caldyn_slow_hydro), POINTER :: compute_caldyn_slow_hydro => NULL() 78 PROCEDURE(comp_caldyn_coriolis), POINTER :: compute_caldyn_coriolis => NULL() 67 79 68 80 END MODULE compute_caldyn_mod
Note: See TracChangeset
for help on using the changeset viewer.