subroutine merge | ( | integer | len, |
integer | lsoil, | ||
integer | iy, | ||
integer | im, | ||
integer | id, | ||
integer | ih, | ||
real (kind=kind_io8) | fh, | ||
real (kind=kind_io8) | deltsfc, | ||
real (kind=kind_io8), dimension(len) | slmskl, | ||
real (kind=kind_io8), dimension(len) | slmskw, | ||
real (kind=kind_io8), dimension(len) | sihfcs, | ||
real (kind=kind_io8), dimension(len) | sicfcs, | ||
real (kind=kind_io8), dimension(len) | vmnfcs, | ||
real (kind=kind_io8), dimension(len) | vmxfcs, | ||
real (kind=kind_io8), dimension(len) | slpfcs, | ||
real (kind=kind_io8), dimension(len) | absfcs, | ||
real (kind=kind_io8), dimension(len) | tsffcs, | ||
real (kind=kind_io8), dimension(len) | wetfcs, | ||
real (kind=kind_io8), dimension(len) | snofcs, | ||
real (kind=kind_io8), dimension(len) | zorfcs, | ||
real (kind=kind_io8), dimension(len,4) | albfcs, | ||
real (kind=kind_io8), dimension(len) | aisfcs, | ||
real (kind=kind_io8), dimension (len) | cvfcs, | ||
real (kind=kind_io8), dimension(len) | cvbfcs, | ||
real (kind=kind_io8), dimension(len) | cvtfcs, | ||
real (kind=kind_io8), dimension(len) | cnpfcs, | ||
real (kind=kind_io8), dimension(len,lsoil) | smcfcs, | ||
real (kind=kind_io8), dimension(len,lsoil) | stcfcs, | ||
real (kind=kind_io8), dimension(len) | slifcs, | ||
real (kind=kind_io8), dimension(len) | vegfcs, | ||
real (kind=kind_io8), dimension(len) | vetfcs, | ||
real (kind=kind_io8), dimension(len) | sotfcs, | ||
real (kind=kind_io8), dimension(len,2) | alffcs, | ||
real (kind=kind_io8), dimension(len) | sihanl, | ||
real (kind=kind_io8), dimension(len) | sicanl, | ||
real (kind=kind_io8), dimension(len) | vmnanl, | ||
real (kind=kind_io8), dimension(len) | vmxanl, | ||
real (kind=kind_io8), dimension(len) | slpanl, | ||
real (kind=kind_io8), dimension(len) | absanl, | ||
real (kind=kind_io8), dimension(len) | tsfanl, | ||
real (kind=kind_io8), dimension(len) | tsfan2, | ||
real (kind=kind_io8), dimension(len) | wetanl, | ||
real (kind=kind_io8), dimension(len) | snoanl, | ||
real (kind=kind_io8), dimension(len) | zoranl, | ||
real (kind=kind_io8), dimension(len,4) | albanl, | ||
real (kind=kind_io8), dimension(len) | aisanl, | ||
real (kind=kind_io8), dimension (len) | cvanl, | ||
real (kind=kind_io8), dimension(len) | cvbanl, | ||
real (kind=kind_io8), dimension(len) | cvtanl, | ||
real (kind=kind_io8), dimension(len) | cnpanl, | ||
real (kind=kind_io8), dimension(len,lsoil) | smcanl, | ||
real (kind=kind_io8), dimension(len,lsoil) | stcanl, | ||
real (kind=kind_io8), dimension(len) | slianl, | ||
real (kind=kind_io8), dimension(len) | veganl, | ||
real (kind=kind_io8), dimension(len) | vetanl, | ||
real (kind=kind_io8), dimension(len) | sotanl, | ||
real (kind=kind_io8), dimension(len,2) | alfanl, | ||
real (kind=kind_io8) | ctsfl, | ||
real (kind=kind_io8) | calbl, | ||
real (kind=kind_io8) | caisl, | ||
real (kind=kind_io8) | csnol, | ||
real (kind=kind_io8), dimension(lsoil) | csmcl, | ||
real (kind=kind_io8) | czorl, | ||
real (kind=kind_io8), dimension(lsoil) | cstcl, | ||
real (kind=kind_io8) | cvegl, | ||
real (kind=kind_io8) | ctsfs, | ||
real (kind=kind_io8) | calbs, | ||
real (kind=kind_io8) | caiss, | ||
real (kind=kind_io8) | csnos, | ||
real (kind=kind_io8), dimension(lsoil) | csmcs, | ||
real (kind=kind_io8) | czors, | ||
real (kind=kind_io8), dimension(lsoil) | cstcs, | ||
real (kind=kind_io8) | cvegs, | ||
real (kind=kind_io8) | ccv, | ||
real (kind=kind_io8) | ccvb, | ||
real (kind=kind_io8) | ccvt, | ||
real (kind=kind_io8) | ccnp, | ||
real (kind=kind_io8) | cvetl, | ||
real (kind=kind_io8) | cvets, | ||
real (kind=kind_io8) | csotl, | ||
real (kind=kind_io8) | csots, | ||
real (kind=kind_io8) | calfl, | ||
real (kind=kind_io8) | calfs, | ||
real (kind=kind_io8) | csihl, | ||
real (kind=kind_io8) | csihs, | ||
real (kind=kind_io8) | csicl, | ||
real (kind=kind_io8) | csics, | ||
real (kind=kind_io8) | cvmnl, | ||
real (kind=kind_io8) | cvmns, | ||
real (kind=kind_io8) | cvmxl, | ||
real (kind=kind_io8) | cvmxs, | ||
real (kind=kind_io8) | cslpl, | ||
real (kind=kind_io8) | cslps, | ||
real (kind=kind_io8) | cabsl, | ||
real (kind=kind_io8) | cabss, | ||
integer | irttsf, | ||
integer | irtwet, | ||
integer | irtsno, | ||
integer | irtzor, | ||
integer | irtalb, | ||
integer | irtais, | ||
integer | irttg3, | ||
integer | irtscv, | ||
integer | irtacn, | ||
integer | irtsmc, | ||
integer | irtstc, | ||
integer | irtveg, | ||
integer | irtvmn, | ||
integer | irtvmx, | ||
integer | irtslp, | ||
integer | irtabs, | ||
integer | irtvet, | ||
integer | irtsot, | ||
integer | irtalf, | ||
logical, intent(in) | landice, | ||
integer | me | ||
) |
References sfccyc_module::num_threads, sfccyc_module::one, sfccyc_module::soil_type_landice, sfccyc_module::veg_type_landice, and sfccyc_module::zero.
Referenced by sfccycle().