Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
io_vegetation | Module: | File: ENT_COM.f |
Author : I. Aleinov
Version:
Declaration:
subroutine io_vegetation(kunit, iaction, ioerr)
- ioread : used from model_com
- iowrite : used from model_com
- lhead : used from model_com
- irerun : used from model_com
- irsfic : used from model_com
- irsficno : used from model_com
- im : used from resolution
- jm : used from resolution
- grid : used from domain_decomp_atm
- am_i_root : used from domain_decomp_1d
- pack_data : used from domain_decomp_1d
- unpack_data : used from domain_decomp_1d
- cint : used from ent_com
- qfol : used from ent_com
- cnc_ij : used from ent_com
- excess_c : used from ent_com
- ent_read_state : used from ent_com
- ent_write_state : used from ent_com
- ent_read_state_plain : used from ent_com
- ent_write_state_plain : used from ent_com
- kunit :
integer
- unit number of read/write
- iaction :
integer
- flag for reading or writing to file
- ioerr :
integer, intent(inout)
- 1 (or -1) if there is (or is not) an error in i/o
- header :
character*80
- character string label for individual records
- cint_glob :
real*8, dimension(im, jm)
- work array for parallel_io
- qfol_glob :
real*8, dimension(im, jm)
- work array for parallel_io
- cnc_ij_glob :
real*8, dimension(im, jm)
- work array for parallel_io
- module_header :
character*80
- Initial Value
= "vegetation02 "
- excess_c_glob :
real*8, dimension(im, jm)
- ent_io_plain_array :
integer
- controls format of Ent record in rsf file
Initial Value= 1
- force_init_ent :
integer
- Initial Value
= 0
- retcode :
integer