subroutine clima | ( | integer | lugb, |
integer | iy, | ||
integer | im, | ||
integer | id, | ||
integer | ih, | ||
real (kind=kind_io8) | fh, | ||
integer | len, | ||
integer | lsoil, | ||
real (kind=kind_io8), dimension(len) | slmskl, | ||
real (kind=kind_io8), dimension(len) | slmskw, | ||
character*500 | fntsfc, | ||
character*500 | fnwetc, | ||
character*500 | fnsnoc, | ||
character*500 | fnzorc, | ||
character*500 | fnalbc, | ||
character*500 | fnaisc, | ||
character*500 | fntg3c, | ||
character*500 | fnscvc, | ||
character*500 | fnsmcc, | ||
character*500 | fnstcc, | ||
character*500 | fnacnc, | ||
character*500 | fnvegc, | ||
character*500 | fnvetc, | ||
character*500 | fnsotc, | ||
character*500 | fnvmnc, | ||
character*500 | fnvmxc, | ||
character*500 | fnslpc, | ||
character*500 | fnabsc, | ||
real (kind=kind_io8), dimension(len) | tsfclm, | ||
real (kind=kind_io8), dimension(len) | tsfcl2, | ||
real (kind=kind_io8), dimension(len) | wetclm, | ||
real (kind=kind_io8), dimension(len) | snoclm, | ||
real (kind=kind_io8), dimension(len) | zorclm, | ||
real (kind=kind_io8), dimension(len,4) | albclm, | ||
real (kind=kind_io8), dimension(len) | aisclm, | ||
real (kind=kind_io8), dimension(len) | tg3clm, | ||
real (kind=kind_io8), dimension (len) | cvclm, | ||
real (kind=kind_io8), dimension(len) | cvbclm, | ||
real (kind=kind_io8), dimension(len) | cvtclm, | ||
real (kind=kind_io8), dimension(len) | cnpclm, | ||
real (kind=kind_io8), dimension(len,lsoil) | smcclm, | ||
real (kind=kind_io8), dimension(len,lsoil) | stcclm, | ||
real (kind=kind_io8), dimension(len) | sliclm, | ||
real (kind=kind_io8), dimension(len) | scvclm, | ||
real (kind=kind_io8), dimension(len) | acnclm, | ||
real (kind=kind_io8), dimension(len) | vegclm, | ||
real (kind=kind_io8), dimension(len) | vetclm, | ||
real (kind=kind_io8), dimension(len) | sotclm, | ||
real (kind=kind_io8), dimension(len,2) | alfclm, | ||
real (kind=kind_io8), dimension(len) | vmnclm, | ||
real (kind=kind_io8), dimension(len) | vmxclm, | ||
real (kind=kind_io8), dimension(len) | slpclm, | ||
real (kind=kind_io8), dimension(len) | absclm, | ||
integer | kpdtsf, | ||
integer | kpdwet, | ||
integer | kpdsno, | ||
integer | kpdzor, | ||
integer, dimension(4) | kpdalb, | ||
integer | kpdais, | ||
integer | kpdtg3, | ||
integer | kpdscv, | ||
integer | kpdacn, | ||
integer | kpdsmc, | ||
integer | kpdstc, | ||
integer | kpdveg, | ||
integer | kpdvet, | ||
integer | kpdsot, | ||
integer, dimension(2) | kpdalf, | ||
real (kind=kind_io8), dimension(len) | tsfcl0, | ||
integer | kpdvmn, | ||
integer | kpdvmx, | ||
integer | kpdslp, | ||
integer | kpdabs, | ||
real (kind=kind_io8) | deltsfc, | ||
logical | lanom, | ||
integer | imsk, | ||
integer | jmsk, | ||
real (kind=kind_io8), dimension(imsk,jmsk) | slmskh, | ||
real (kind=kind_io8), dimension(len) | outlat, | ||
real (kind=kind_io8), dimension(len) | outlon, | ||
logical | gaus, | ||
real (kind=kind_io8) | blno, | ||
real (kind=kind_io8) | blto, | ||
integer | me, | ||
logical | lprnt, | ||
integer | iprnt, | ||
character*500 | fnalbc2, | ||
integer | ialb, | ||
character(len=*), intent(in) | tile_num_ch, | ||
integer, dimension(len), intent(in) | i_index, | ||
integer, dimension(len), intent(in) | j_index | ||
) |
References fixrdc(), and fixrdc_tile().
Referenced by sfccycle().