Changeset 605

Timestamp:

10/24/17 01:46:15 (7 years ago)

Author:

dubos

Message:

trunk : backported r600 from devel

File:

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

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

@@ -9 +9 @@
        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(:)
@@ -16 +15 @@
   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
@@ -22 +21 @@
   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")