4 |
subroutine do_fizhi(myid, |
subroutine do_fizhi(myid, |
5 |
. idim1,idim2,jdim1,jdim2,Nrphin,Nsxin,Nsyin,im1,im2,jm1,jm2,bi,bj, |
. idim1,idim2,jdim1,jdim2,Nrphin,Nsxin,Nsyin,im1,im2,jm1,jm2,bi,bj, |
6 |
. nchp,nchptot,nchpland, |
. nchp,nchptot,nchpland, |
7 |
. uphy,vphy,thphy,sphy,pephy,lons,lats,phi0surf, |
. uphy,vphy,thphy,sphy,pephy,lons,lats,Zsurf, |
8 |
. ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke, |
. ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke, |
9 |
. tgz,sst,sice,phis_var,landtype,fracland,emiss,albnirdr,albnirdf, |
. tgz,sst,sice,phis_var,landtype,fracland,emiss,albnirdr,albnirdf, |
10 |
. albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlat,chlon, |
. albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlat,chlon, |
41 |
_RL pephy(idim1:idim2,jdim1:jdim2,Nrphin+1,Nsxin,Nsyin) |
_RL pephy(idim1:idim2,jdim1:jdim2,Nrphin+1,Nsxin,Nsyin) |
42 |
_RS lons(idim1:idim2,jdim1:jdim2,Nsxin,Nsyin) |
_RS lons(idim1:idim2,jdim1:jdim2,Nsxin,Nsyin) |
43 |
_RS lats(idim1:idim2,jdim1:jdim2,Nsxin,Nsyin) |
_RS lats(idim1:idim2,jdim1:jdim2,Nsxin,Nsyin) |
44 |
_RS phi0surf(idim1:idim2,jdim1:jdim2,Nsxin,Nsyin) |
_RS Zsurf(idim1:idim2,jdim1:jdim2,Nsxin,Nsyin) |
45 |
_RL ctmt(nchp,Nsxin,Nsyin),xxmt(nchp,Nsxin,Nsyin) |
_RL ctmt(nchp,Nsxin,Nsyin),xxmt(nchp,Nsxin,Nsyin) |
46 |
_RL yymt(nchp,Nsxin,Nsyin) |
_RL yymt(nchp,Nsxin,Nsyin) |
47 |
_RL zetamt(nchp,Nsxin,Nsyin) |
_RL zetamt(nchp,Nsxin,Nsyin) |