Changeset 360 for codes/icosagcm/trunk/src/caldyn_adv.f90

Timestamp:

09/08/15 16:23:06 (9 years ago)

Author:

dubos

Message:

Towards HEVI time stepping

File:

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

codes/icosagcm/trunk/src/caldyn_adv.f90

@@ -64 +64 @@
     TYPE(t_field),POINTER :: f_q(:)
     TYPE(t_field),POINTER :: f_hflux(:), f_wflux(:)
-    TYPE(t_field),POINTER :: f_dps(:)
-    TYPE(t_field),POINTER :: f_dtheta_rhodz(:)
-    TYPE(t_field),POINTER :: f_du(:)
+    TYPE(t_field) :: f_dps(:)
+    TYPE(t_field) :: f_dtheta_rhodz(:)
+    TYPE(t_field) :: f_du(:)
 
     REAL(rstd),POINTER :: ps(:)
@@ -103 +103 @@
   END SUBROUTINE caldyn
 
-
   SUBROUTINE compute_caldyn(ps,u, hflux,wflux,dps, dtheta_rhodz,du)
     USE icosa