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