CLN CHARACTER(LEN=99), INTENT(IN) :: fcnpspin vh_js !! CLN OPEN(91, file=fcnpspin) CLN read(91,*) myearspin CLN901 format(A99) $ WHERE(xkNlimiting .eq. 0) !Chris Lu 4/June/2012 $ xkNlimiting = 0.001 $ END WHERE $ call totcnppools(1,veg,casamet,casapool,bmcplant,bmnplant,bmpplant,bmclitter,bmnlitter,bmplitter, & $ bmcsoil,bmnsoil,bmpsoil,bmnsoilmin,bmpsoillab,bmpsoilsorb,bmpsoilocc,bmarea)
CLN OPEN(91,file=fcnpspin) CLN read(91,*) CLN read(91,901) ncfile
$ if(nloop>=nloop1) & $ call totcnppools(2+nloop-nloop1,veg,casamet,casapool,bmcplant,bmnplant,bmpplant,bmclitter,bmnlitter,bmplitter, & $ bmcsoil,bmnsoil,bmpsoil,bmnsoilmin,bmpsoillab,bmpsoilsorb,bmpsoilocc,bmarea)
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in) | :: | dels | |||
| integer, | intent(in) | :: | kstart | |||
| integer, | intent(in) | :: | kend | |||
| integer, | intent(in) | :: | mloop | |||
| type(veg_parameter_type), | intent(inout) | :: | veg | |||
| type(soil_parameter_type), | intent(inout) | :: | soil | |||
| type(casa_biome), | intent(inout) | :: | casabiome | |||
| type(casa_pool), | intent(inout) | :: | casapool | |||
| type(casa_flux), | intent(inout) | :: | casaflux | |||
| type(casa_met), | intent(inout) | :: | casamet | |||
| type(casa_balance), | intent(inout) | :: | casabal | |||
| type(phen_variable), | intent(inout) | :: | phen | |||
| type(POP_TYPE), | intent(inout) | :: | POP | |||
| type(climate_type), | intent(inout) | :: | climate | |||
| integer, | intent(in) | :: | LALLOC |