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

Timestamp:

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

Author:

dubos

Message:

Towards HEVI time stepping

File:

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

codes/icosagcm/trunk/src/caldyn.f90

@@ -57 +57 @@
   TYPE(t_field),POINTER :: f_hflux(:)
   TYPE(t_field),POINTER :: f_wflux(:)
-  TYPE(t_field),POINTER :: f_dps(:)
-  TYPE(t_field),POINTER :: f_dmass(:)
-  TYPE(t_field),POINTER :: f_dtheta_rhodz(:)
-  TYPE(t_field),POINTER :: f_du(:)
+  TYPE(t_field) :: f_dps(:)
+  TYPE(t_field) :: f_dmass(:)
+  TYPE(t_field) :: f_dtheta_rhodz(:)
+  TYPE(t_field) :: f_du(:)
 
     SELECT CASE (TRIM(caldyn_type))
@@ -71 +71 @@
     END SELECT
   
-  END SUBROUTINE caldyn  
+  END SUBROUTINE caldyn
 
 END MODULE caldyn_mod