Changeset 600 for codes/icosagcm/devel
- Timestamp:
- 10/23/17 18:21:27 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/diagnostics/observable.f90
r598 r600 7 7 f_buf_Fel(:), f_buf_uh(:), & ! horizontal velocity, different from prognostic velocity if NH 8 8 f_buf_ulon(:), f_buf_ulat(:) 9 TYPE(t_field),POINTER, SAVE :: f_buf1_i(:), f_buf2_i(:)10 9 TYPE(t_field),POINTER, SAVE :: f_buf_v(:), f_buf_s(:), f_buf_p(:) 11 10 TYPE(t_field),POINTER, SAVE :: f_pmid(:) … … 14 13 TYPE(t_field),POINTER, SAVE :: f_theta(:) 15 14 16 PUBLIC init_observable, write_output_fields_basic, f_theta 15 PUBLIC init_observable, write_output_fields_basic, f_theta, f_buf_i 17 16 18 17 CONTAINS … … 20 19 SUBROUTINE init_observable 21 20 CALL allocate_field(f_buf_i, field_t,type_real,llm,name="buffer_i") 22 CALL allocate_field(f_buf1_i, field_t,type_real,llm,name="buffer1_i")23 CALL allocate_field(f_buf2_i, field_t,type_real,llm,name="buffer2_i")24 21 CALL allocate_field(f_buf_p, field_t,type_real,llm+1) 25 22 CALL allocate_field(f_buf_ulon,field_t,type_real,llm, name="buf_ulon")
Note: See TracChangeset
for help on using the changeset viewer.