Changeset 884 for codes/icosagcm/devel/src/initial/etat0_collocated.f90

Timestamp:

06/12/19 00:27:36 (5 years ago)

Author:

dubos

Message:

devel/unstructured : fixed etat0 + renamed compute => compute_caldyn

File:

• codes/icosagcm/devel/src/initial/etat0_collocated.f90 (modified) (2 diffs)

codes/icosagcm/devel/src/initial/etat0_collocated.f90

@@ -114 +114 @@
     REAL(rstd) :: phis_e(edge_num)
     REAL(rstd) :: u_e(edge_num, llm)
+    REAL(rstd) :: ep(edge_num,3)
     REAL(rstd) :: mass_i(primal_num, llm), theta_rhodz_i(primal_num, llm), mass_e(edge_num, llm)
     REAL(rstd) :: geopot_i(edge_num, llm+1), geopot_e(edge_num, llm+1)
@@ -120 +121 @@
 
     w(:,:) = 0
+    ep = TRANSPOSE(ep_e)
     CALL compute_etat0_collocated(primal_num  , lon_i, lat_i, phis,   ps,   mass_i,   theta_rhodz_i, geopot_i,   q_i)
-    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)
+    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)
     mass = TRANSPOSE(mass_i)
     theta_rhodz = TRANSPOSE(theta_rhodz_i)