1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
#include "FIZHI_OPTIONS.h" |
#include "FIZHI_OPTIONS.h" |
4 |
subroutine do_fizhi(myid, |
subroutine do_fizhi(myIter,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, |
. 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, |
31 |
#include "chronos.h" |
#include "chronos.h" |
32 |
|
|
33 |
C Argument list declarations |
C Argument list declarations |
34 |
integer myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
integer myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
35 |
integer Nrphin,Nsxin,Nsyin,bi,bj,nchp |
integer Nrphin,Nsxin,Nsyin,bi,bj,nchp |
36 |
integer nchptot(Nsxin,Nsyin),nchpland(Nsxin,Nsyin) |
integer nchptot(Nsxin,Nsyin),nchpland(Nsxin,Nsyin) |
37 |
_RL uphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin) |
_RL uphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin) |
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 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) |