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

codes/icosagcm/trunk/src/etat0.f90

@@ -137 +137 @@
     REAL(rstd),POINTER :: mass(:,:)
     REAL(rstd),POINTER :: phis(:)
-    REAL(rstd),POINTER :: theta_rhodz(:,:)
+    REAL(rstd),POINTER :: theta_rhodz(:,:,:)
     REAL(rstd),POINTER :: temp(:,:)
     REAL(rstd),POINTER :: u(:,:)
@@ -162 +162 @@
 
       IF( TRIM(etat0_type)=='williamson91.6' ) THEN
-       CALL compute_etat0_collocated(ps,mass, phis, theta_rhodz, u, geopot, W, q)
+         CALL compute_etat0_collocated(ps,mass, phis, theta_rhodz(:,:,1), u, geopot, W, q)
       ELSE
-       CALL compute_etat0_collocated(ps,mass, phis, temp, u, geopot, W, q)
+         CALL compute_etat0_collocated(ps,mass, phis, temp, u, geopot, W, q)
       ENDIF
     ENDDO