Changeset 260 for codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/geometry.f90

Timestamp:

07/29/14 10:10:51 (10 years ago)

Author:

ymipsl

Message:

Implement restartability for dynamico

YM

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/geometry.f90 (modified) (1 diff)

codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/geometry.f90

@@ -83 +83 @@
   IMPLICIT NONE
   
-    CALL allocate_field(geom%Ai,field_t,type_real)
+    CALL allocate_field(geom%Ai,field_t,type_real,name='Ai')
     CALL allocate_field(geom%xyz_i,field_t,type_real,3)
     CALL allocate_field(geom%centroid,field_t,type_real,3)