- Timestamp:
- 06/12/19 00:27:36 (5 years ago)
- Location:
- codes/icosagcm/devel/src
- Files:
-
- 4 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dynamics/caldyn_gcm.F90
r861 r884 16 16 17 17 SUBROUTINE init_caldyn 18 USE compute_ mod, ONLY : compute_pvort_only18 USE compute_caldyn_mod, ONLY : compute_pvort_only 19 19 USE compute_pvort_only_mod, ONLY : compute_pvort_only_hex, compute_pvort_only_unst 20 20 -
codes/icosagcm/devel/src/dynamics/caldyn_hevi.f90
r861 r884 34 34 USE output_field_mod 35 35 USE checksum_mod 36 USE compute_ mod, ONLY : compute_pvort_only36 USE compute_caldyn_mod, ONLY : compute_pvort_only 37 37 IMPLICIT NONE 38 38 LOGICAL,INTENT(IN) :: write_out -
codes/icosagcm/devel/src/dynamics/compute_caldyn.f90
r882 r884 1 MODULE compute_ mod1 MODULE compute_caldyn_mod 2 2 IMPLICIT NONE 3 3 SAVE … … 18 18 PROCEDURE(comp_pvort_only), POINTER :: compute_pvort_only => NULL() 19 19 20 END MODULE compute_ mod20 END MODULE compute_caldyn_mod -
codes/icosagcm/devel/src/dynamics/compute_pvort_only.F90
r852 r884 1 1 MODULE compute_pvort_only_mod 2 USE compute_mod, ONLY : comp_pvort_only3 2 USE grid_param, ONLY : llm 4 3 IMPLICIT NONE … … 12 11 13 12 SUBROUTINE check_interface 14 PROCEDURE(comp_pvort_only), POINTER :: ptr15 ptr=> compute_pvort_only_unst16 ptr=> compute_pvort_only_hex13 USE compute_caldyn_mod 14 compute_pvort_only => compute_pvort_only_unst 15 compute_pvort_only => compute_pvort_only_hex 17 16 END SUBROUTINE check_interface 18 17 -
codes/icosagcm/devel/src/initial/etat0_collocated.f90
r856 r884 114 114 REAL(rstd) :: phis_e(edge_num) 115 115 REAL(rstd) :: u_e(edge_num, llm) 116 REAL(rstd) :: ep(edge_num,3) 116 117 REAL(rstd) :: mass_i(primal_num, llm), theta_rhodz_i(primal_num, llm), mass_e(edge_num, llm) 117 118 REAL(rstd) :: geopot_i(edge_num, llm+1), geopot_e(edge_num, llm+1) … … 120 121 121 122 w(:,:) = 0 123 ep = TRANSPOSE(ep_e) 122 124 CALL compute_etat0_collocated(primal_num , lon_i, lat_i, phis, ps, mass_i, theta_rhodz_i, geopot_i, q_i) 123 CALL compute_etat0_collocated(edge_num, lon_e, lat_e, phis_e, ps_e, mass_e, mass_e, geopot_e, q_e, ep _e, u_e)125 CALL compute_etat0_collocated(edge_num, lon_e, lat_e, phis_e, ps_e, mass_e, mass_e, geopot_e, q_e, ep, u_e) 124 126 mass = TRANSPOSE(mass_i) 125 127 theta_rhodz = TRANSPOSE(theta_rhodz_i)
Note: See TracChangeset
for help on using the changeset viewer.