| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| integer, | parameter | :: | kstart | = | 1 | |
| integer, | parameter | :: | mloop | = | 30 | |
| integer | :: | LALLOC | ||||
| integer | :: | ktau | ||||
| integer | :: | ktau_tot | ||||
| integer | :: | kend | ||||
| integer | :: | koffset | = | 0 | ||
| integer | :: | koffset_met | = | 0 | ||
| integer | :: | ktauday | ||||
| integer | :: | idoy | ||||
| integer | :: | nyear | ||||
| integer | :: | casa_it | ||||
| integer | :: | YYYY | ||||
| integer | :: | RYEAR | ||||
| integer | :: | RRRR | ||||
| integer | :: | NRRRR | ||||
| integer | :: | ctime | ||||
| integer | :: | LOY | ||||
| integer | :: | count_sum_casa | ||||
| real | :: | dels | ||||
| integer, | DIMENSION(:,:), ALLOCATABLE | :: | GSWP_MID | |||
| character(len=1) | :: | dum*9 | ||||
| character(len=1) | :: | str1*9 | ||||
| character(len=1) | :: | str2*9 | ||||
| character(len=1) | :: | str3*9 | ||||
| type(met_type) | :: | met | ||||
| type(air_type) | :: | air | ||||
| type(canopy_type) | :: | canopy | ||||
| type(radiation_type) | :: | rad | ||||
| type(roughness_type) | :: | rough | ||||
| type(balances_type) | :: | bal | ||||
| type(soil_snow_type) | :: | ssnow | ||||
| type(climate_type) | :: | climate | ||||
| type(soil_parameter_type) | :: | soil | ||||
| type(veg_parameter_type) | :: | veg | ||||
| type(sum_flux_type) | :: | sum_flux | ||||
| type(bgc_pool_type) | :: | bgc | ||||
| type(casa_biome) | :: | casabiome | ||||
| type(casa_pool) | :: | casapool | ||||
| type(casa_flux) | :: | casaflux | ||||
| type(casa_pool) | :: | sum_casapool | ||||
| type(casa_flux) | :: | sum_casaflux | ||||
| type(casa_met) | :: | casamet | ||||
| type(casa_balance) | :: | casabal | ||||
| type(phen_variable) | :: | phen | ||||
| type(POP_TYPE) | :: | POP | ||||
| type(POPLUC_TYPE) | :: | POPLUC | ||||
| type(PLUME_MIP_TYPE) | :: | PLUME | ||||
| type(CRU_TYPE) | :: | CRU | ||||
| type(site_TYPE) | :: | site | ||||
| type(LUC_EXPT_TYPE) | :: | LUC_EXPT | ||||
| type(landuse_mp) | :: | lucmp | ||||
| character(len=1) | :: | cyear*4 | ||||
| character(len=1) | :: | ncfile*99 | ||||
| logical, | SAVE | :: | spinConv | = | .FALSE. | |
| logical, | SAVE | :: | CASAONLY | = | .FALSE. | |
| logical, | SAVE | :: | CALL1 | = | .TRUE. | |
| logical, | SAVE | :: | SPINon | = | .TRUE. | |
| integer | :: | Metyear | ||||
| integer | :: | Y | ||||
| integer | :: | LOYtmp | ||||
| real, | ALLOCATABLE, DIMENSION(:,:) | :: | soilMtemp | |||
| real, | ALLOCATABLE, DIMENSION(:,:) | :: | soilTtemp | |||
| real, | ALLOCATABLE, DIMENSION(:) | :: | GWtemp | |||
| real | :: | etime | ||||
| real, | allocatable | :: | heat_cap_lower_limit(:,:) | |||
| integer | :: | i | ||||
| integer | :: | x | ||||
| integer | :: | kk | ||||
| integer | :: | m | ||||
| integer | :: | np | ||||
| integer | :: | ivt | ||||
| character(len=30), | parameter | :: | Ftrunk_sumbal | = | ".trunk_sumbal" | |
| character(len=30), | parameter | :: | Fnew_sumbal | = | "new_sumbal" | |
| double precision | :: | trunk_sumbal | = | 0.0 | ||
| double precision | :: | new_sumbal | = | 0.0 | ||
| double precision | :: | new_sumfpn | = | 0.0 | ||
| double precision | :: | new_sumfe | = | 0.0 | ||
| real, | ALLOCATABLE, SAVE | :: | c1(:,:) | |||
| real, | ALLOCATABLE, SAVE | :: | rhoch(:,:) | |||
| real, | ALLOCATABLE, SAVE | :: | xk(:,:) | |||
| integer | :: | nkend | = | 0 | ||
| integer | :: | ioerror | ||||
| integer | :: | count_bal | = | 0 | ||
| integer | :: | mlon | ||||
| integer | :: | mlat | ||||
| integer | :: | mpx | ||||
| real(kind=r_2), | dimension(:,:,:), allocatable, save | :: | luc_atransit | |||
| real(kind=r_2), | dimension(:,:), allocatable, save | :: | luc_fharvw | |||
| real(kind=r_2), | dimension(:,:,:), allocatable, save | :: | luc_xluh2cable | |||
| real(kind=r_2), | dimension(:), allocatable, save | :: | arealand | |||
| integer, | dimension(:,:), allocatable, save | :: | landmask | |||
| integer, | dimension(:), allocatable, save | :: | cstart | |||
| integer, | dimension(:), allocatable, save | :: | cend | |||
| integer, | dimension(:), allocatable, save | :: | nap | |||
| real(kind=r_2), | dimension(:,:,:), allocatable, save | :: | patchfrac_new |