Changeset 884 for codes/icosagcm/devel/src/initial/etat0_collocated.f90
- Timestamp:
- 06/12/19 00:27:36 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.