Changeset 387 for codes/icosagcm/trunk/src/observable.f90

Timestamp:

05/28/16 00:32:21 (8 years ago)

Author:

dubos

Message:

Infrastructure for multiple dynamical tracers - tested with JW06 and moist baroclinic wave

File:

• codes/icosagcm/trunk/src/observable.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/observable.f90

@@ -214 +214 @@
     TYPE(t_field), POINTER :: f_ps(:), f_phis(:), f_theta_rhodz(:), &  ! IN
          f_pks(:), f_p(:), f_theta(:), f_pk(:), f_phi(:)               ! OUT
-    REAL(rstd),POINTER :: pk(:,:), p(:,:), theta(:,:), theta_rhodz(:,:), &
+    REAL(rstd),POINTER :: pk(:,:), p(:,:), theta(:,:), theta_rhodz(:,:,:), &
          phi(:,:), phis(:), ps(:), pks(:)
     INTEGER :: ind
@@ -233 +233 @@
        theta_rhodz = f_theta_rhodz(ind)
        theta = f_theta(ind)
-       CALL compute_theta_rhodz2theta(ps, theta_rhodz,theta,0)
+       CALL compute_theta_rhodz2theta(ps, theta_rhodz(:,:,1),theta,0)
        phis = f_phis(ind)
        phi = f_phi(ind)