Changeset 322 for codes

Timestamp:

01/22/15 01:51:47 (9 years ago)

Author:

dubos

Message:

Bugfix : JW06 works again

File:

• codes/icosagcm/trunk/src/theta_rhodz.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/theta_rhodz.f90

@@ -14 +14 @@
   USE field_mod
   IMPLICIT NONE
-    CALL allocate_field(f_p,field_t,type_real,llm+1,name='p')
-    CALL allocate_field(f_pk,field_t,type_real,llm,name='pk')
-    CALL allocate_field(f_pks,field_t,type_real,name='pks')
+    CALL allocate_field(f_p,field_t,type_real,llm+1,name='p (theta2theta_rhodz_mod)')
+    CALL allocate_field(f_pk,field_t,type_real,llm,name='pk (theta2theta_rhodz_mod)')
+    CALL allocate_field(f_pks,field_t,type_real,name='pks (theta2theta_rhodz_mod)')
     
   END SUBROUTINE init_theta2theta_rhodz
@@ -60 +60 @@
     REAL(rstd), POINTER :: theta_rhodz(:,:)
     REAL(rstd), POINTER :: temp(:,:)
-    REAL(rstd), POINTER :: p(:)
+    REAL(rstd), POINTER :: p(:,:)
     REAL(rstd), POINTER :: pk(:,:)
-    REAL(rstd), POINTER :: pks(:,:)
+    REAL(rstd), POINTER :: pks(:)
     INTEGER :: ind
 
@@ -99 +99 @@
     REAL(rstd), POINTER :: theta_rhodz(:,:)
     REAL(rstd), POINTER :: temp(:,:)
-    REAL(rstd), POINTER :: p(:)
+    REAL(rstd), POINTER :: p(:,:)
     REAL(rstd), POINTER :: pk(:,:)
-    REAL(rstd), POINTER :: pks(:,:)
+    REAL(rstd), POINTER :: pks(:)
     INTEGER :: ind