Changeset 600

Timestamp:

10/23/17 18:21:27 (7 years ago)

Author:

dubos

Message:

devel : remove unused buffers in diagnostics/observable.f90

File:

• codes/icosagcm/devel/src/diagnostics/observable.f90 (modified) (3 diffs)

codes/icosagcm/devel/src/diagnostics/observable.f90

@@ -7 +7 @@
        f_buf_Fel(:), f_buf_uh(:), & ! horizontal velocity, different from prognostic velocity if NH
        f_buf_ulon(:), f_buf_ulat(:)
-  TYPE(t_field),POINTER, SAVE :: f_buf1_i(:), f_buf2_i(:)
   TYPE(t_field),POINTER, SAVE :: f_buf_v(:), f_buf_s(:), f_buf_p(:)
   TYPE(t_field),POINTER, SAVE :: f_pmid(:)
@@ -14 +13 @@
   TYPE(t_field),POINTER, SAVE :: f_theta(:)
 
-  PUBLIC init_observable, write_output_fields_basic, f_theta
+  PUBLIC init_observable, write_output_fields_basic, f_theta, f_buf_i
 
 CONTAINS
@@ -20 +19 @@
   SUBROUTINE init_observable
     CALL allocate_field(f_buf_i,   field_t,type_real,llm,name="buffer_i")
-    CALL allocate_field(f_buf1_i,   field_t,type_real,llm,name="buffer1_i")
-    CALL allocate_field(f_buf2_i,   field_t,type_real,llm,name="buffer2_i")
     CALL allocate_field(f_buf_p,   field_t,type_real,llm+1) 
     CALL allocate_field(f_buf_ulon,field_t,type_real,llm, name="buf_ulon")