Changeset 598 for codes/icosagcm/devel
- Timestamp:
- 10/19/17 16:56:56 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/diagnostics/observable.f90
r595 r598 6 6 TYPE(t_field),POINTER, SAVE :: f_buf_i(:), & 7 7 f_buf_Fel(:), f_buf_uh(:), & ! horizontal velocity, different from prognostic velocity if NH 8 f_buf_ulon(:), f_buf_ulat(:), & 9 f_buf_u3d(:) ! unused, remove ? 8 f_buf_ulon(:), f_buf_ulat(:) 10 9 TYPE(t_field),POINTER, SAVE :: f_buf1_i(:), f_buf2_i(:) 11 10 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") 25 24 CALL allocate_field(f_buf_p, field_t,type_real,llm+1) 26 CALL allocate_field(f_buf_u3d, field_t,type_real,3,llm) ! 3D vel at cell centers27 25 CALL allocate_field(f_buf_ulon,field_t,type_real,llm, name="buf_ulon") 28 26 CALL allocate_field(f_buf_ulat,field_t,type_real,llm, name="buf_ulat")
Note: See TracChangeset
for help on using the changeset viewer.