Changeset 494

Timestamp:

11/07/16 13:10:38 (8 years ago)

Author:

ymipsl

Message:

Fix held & suarez physic (extra dimansion for theta)

YM

File:

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

codes/icosagcm/trunk/src/etat0_heldsz.f90

@@ -201 +201 @@
     TYPE(t_field),POINTER :: f_u(:)
     TYPE(t_field),POINTER :: f_ps(:)
-    REAL(rstd),POINTER :: theta_rhodz(:,:)
+    REAL(rstd),POINTER :: theta_rhodz(:,:,:)
     REAL(rstd),POINTER :: u(:,:)
     REAL(rstd),POINTER :: ps(:)
@@ -218 +218 @@
        theta_eq=f_theta_eq(ind) 
        theta=f_theta(ind) 
-       CALL compute_heldsz(ps,theta_eq,lat_i, theta_rhodz,u, theta) 
+       CALL compute_heldsz(ps,theta_eq,lat_i, theta_rhodz(:,:,1),u, theta) 
     ENDDO
   END SUBROUTINE held_suarez