Changeset 598

Timestamp:

10/19/17 16:56:56 (7 years ago)

Author:

dubos

Message:

devel : minor cleanup in observable.f90

File:

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

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

@@ -6 +6 @@
   TYPE(t_field),POINTER, SAVE :: f_buf_i(:), &
        f_buf_Fel(:), f_buf_uh(:), & ! horizontal velocity, different from prognostic velocity if NH
-       f_buf_ulon(:), f_buf_ulat(:), &
-       f_buf_u3d(:) ! unused, remove ?
+       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(:)
@@ -24 +23 @@
     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_u3d, field_t,type_real,3,llm)  ! 3D vel at cell centers
     CALL allocate_field(f_buf_ulon,field_t,type_real,llm, name="buf_ulon")
     CALL allocate_field(f_buf_ulat,field_t,type_real,llm, name="buf_ulat")