Changeset 950 for codes/icosagcm/devel/src/base/field.f90

Timestamp:

07/14/19 14:40:34 (5 years ago)

Author:

dubos

Message:

devel/unstructured : towards Fortran driver for DYNAMICO-unstructured

File:

• codes/icosagcm/devel/src/base/field.f90 (modified) (3 diffs)

codes/icosagcm/devel/src/base/field.f90

@@ -365 +365 @@
     field_pt=>field%rval2d
     IF(grid_type == grid_unst) THEN
-       PRINT *, 'getval_r2d for ' // TRIM(field%name) // ' : ', SHAPE(field_pt)
+!       PRINT *, 'getval_r2d for ' // TRIM(field%name) // ' : ', SHAPE(field_pt)
     END IF
   END SUBROUTINE  getval_r2d
@@ -381 +381 @@
     field_pt=>field%rval3d
     IF(grid_type == grid_unst) THEN
-       PRINT *, 'getval_r3d for ' // TRIM(field%name) // ' : ', SHAPE(field_pt)
+!       PRINT *, 'getval_r3d for ' // TRIM(field%name) // ' : ', SHAPE(field_pt)
     END IF
   END SUBROUTINE  getval_r3d
@@ -396 +396 @@
     field_pt=>field%rval4d
     IF(grid_type == grid_unst) THEN
-       PRINT *, 'getval_r4d for ' // TRIM(field%name) // ' : ', SHAPE(field_pt)
+!       PRINT *, 'getval_r4d for ' // TRIM(field%name) // ' : ', SHAPE(field_pt)
     END IF
   END SUBROUTINE  getval_r4d