Changeset 927

Timestamp:

06/21/19 00:55:59 (5 years ago)

Author:

dubos

Message:

devel : quiet down write_field.f90

File:

• codes/icosagcm/devel/src/output/write_field.f90 (modified) (5 diffs)

codes/icosagcm/devel/src/output/write_field.f90

@@ -292 +292 @@
      FieldIndex(NbField)=1
      
-     PRINT *, 'Creating header for writefield : ', TRIM(FieldName(NbField)), ndomain, ind_b, ind_e ! FIXME
-     PRINT *, mesh_glo%ndomain, SIZE(mesh_glo%primal_own)
+!     PRINT *, 'Creating header for writefield : ', TRIM(FieldName(NbField)), ndomain, ind_b, ind_e ! FIXME
+!     PRINT *, mesh_glo%ndomain, SIZE(mesh_glo%primal_own)
      SELECT CASE(Field(ind_b)%field_type)
      CASE(field_T)
-        PRINT *, '    field_type == field_T' ! FIXME
+!        PRINT *, '    field_type == field_T' ! FIXME
         IF(single) THEN ! include halos
            cells => mesh_glo%primal_all
@@ -303 +303 @@
         END IF
      CASE(field_Z)
-        PRINT *, '    field_type == field_Z' ! FIXME
+!        PRINT *, '    field_type == field_Z' ! FIXME
         IF(single) THEN ! include halos
            cells => mesh_glo%dual_all
@@ -311 +311 @@
      END SELECT
      
-     PRINT *, 'writefield : ind_b, ind_e :', ind_b, ind_e
+!     PRINT *, 'writefield : ind_b, ind_e :', ind_b, ind_e
 
      ncell=0
@@ -318 +318 @@
         ncell = ncell + cells(ind)%ncell
      END DO
-     PRINT *, 'writefield : found ',ncell, ' cells.' ! FIXME
+!     PRINT *, 'writefield : found ',ncell, ' cells.' ! FIXME
      
      status = NF90_CREATE(TRIM(ADJUSTL(name))//'.nc', NF90_CLOBBER, ncid)
@@ -416 +416 @@
      DO ind=ind_b,ind_e
         n_end = n_begin + cells(ind)%ncell
-        PRINT *, 'create_header_gen ', n_begin, n_end, SHAPE(cells(ind)%bnds_lon), SHAPE(bounds_lon)
+!        PRINT *, 'create_header_gen ', n_begin, n_end, SHAPE(cells(ind)%bnds_lon), SHAPE(bounds_lon)
         lat(n_begin+1:n_end) = cells(ind)%lat(:) *180./Pi
         lon(n_begin+1:n_end) = cells(ind)%lon(:) *180./Pi