Changeset 387 for codes/icosagcm/trunk/src/theta_rhodz.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/theta_rhodz.f90 (modified) (4 diffs)

codes/icosagcm/trunk/src/theta_rhodz.f90

@@ -58 +58 @@
   
     REAL(rstd), POINTER :: ps(:)
-    REAL(rstd), POINTER :: theta_rhodz(:,:)
+    REAL(rstd), POINTER :: theta_rhodz(:,:,:)
     REAL(rstd), POINTER :: temp(:,:)
     REAL(rstd), POINTER :: p(:,:)
@@ -81 +81 @@
       CALL compute_exner(ps,p,pks,pk,0)
 !$OMP BARRIER
-      CALL compute_theta_rhodz2temperature(p, pk, theta_rhodz,temp,0)
+      CALL compute_theta_rhodz2temperature(p, pk, theta_rhodz(:,:,1),temp,0)
     ENDDO
 !$OMP BARRIER
@@ -97 +97 @@
   
     REAL(rstd), POINTER :: ps(:)
-    REAL(rstd), POINTER :: theta_rhodz(:,:)
+    REAL(rstd), POINTER :: theta_rhodz(:,:,:)
     REAL(rstd), POINTER :: temp(:,:)
     REAL(rstd), POINTER :: p(:,:)
@@ -120 +120 @@
       CALL compute_exner(ps,p,pks,pk,0)
 !$OMP BARRIER
-      CALL compute_temperature2theta_rhodz(p, pk, temp, theta_rhodz, 0)
+      CALL compute_temperature2theta_rhodz(p, pk, temp, theta_rhodz(:,:,1), 0)
     ENDDO
 !$OMP BARRIER