pkg/fizhi/fizhi_coms.h

e337e4ca8c Andr*0001 C The physics state uses the dynamics dimensions in the horizontal
                0002 C     and the land dimensions in the horizontal for turbulence variables
e4ce4355da Jean*0003 C
                0004 C Fizhi State Common - State variables on physics grid
                0005 C ----------------------------------------------------------------------
                0006       COMMON /physics_state/ uphy,vphy,thphy,sphy,
                0007      &   ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke
                0008
                0009       _RL uphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0010       _RL vphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0011       _RL thphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0012       _RL sphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0013       _RL ctmt(nchp,nSx,nSy), xxmt(nchp,nSx,nSy), yymt(nchp,nSx,nSy)
                0014       _RL zetamt(nchp,nSx,nSy)
                0015       _RL xlmt(nchp,Nrphys,nSx,nSy), khmt(nchp,Nrphys,nSx,nSy)
                0016       _RL tke(nchp,Nrphys,nSx,nSy)
e337e4ca8c Andr*0017
e4ce4355da Jean*0018 C Fizhi Tendency Common - Changes in state variables due to physics
                0019 C ----------------------------------------------------------------------
                0020       COMMON /physics_tendency/ duphy,dvphy,dthphy,dsphy
e337e4ca8c Andr*0021
e4ce4355da Jean*0022       _RL duphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0023       _RL dvphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0024       _RL dthphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0025       _RL dsphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
e337e4ca8c Andr*0026
e4ce4355da Jean*0027 C Fizhi Exports Common - Physics variables on other grids for export
                0028 C ----------------------------------------------------------------------
                0029       COMMON /physics_exports/ guphy,gvphy,gthphy,gsphy
e337e4ca8c Andr*0030
e4ce4355da Jean*0031       _RL guphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0032       _RL gvphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0033       _RL gthphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0034       _RL gsphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
e337e4ca8c Andr*0035
e4ce4355da Jean*0036 C Fizhi Saver Common - Internal fizhi variables to be written on pickup
                0037 C ----------------------------------------------------------------------
                0038       COMMON /physics_saver/ cldtot_lw,cldras_lw,cldlsp_lw,lwlz,
                0039      &                       cldtot_sw,cldras_sw,cldlsp_sw,swlz,
                0040      &                       qliqavesw,qliqavelw,fccavesw,fccavelw,
                0041      &                       raincon,rainlsp,snowfall,
                0042      &                       iras,nlwcld,nlwlz,nswcld,nswlz,
                0043      &                       imstturbsw,imstturblw
b710f4e61f Andr*0044
e4ce4355da Jean*0045       _RL cldtot_lw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0046       _RL cldras_lw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0047       _RL cldlsp_lw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0048       _RL lwlz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0049       _RL cldtot_sw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0050       _RL cldras_sw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0051       _RL cldlsp_sw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0052       _RL swlz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0053       _RL qliqavesw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0054       _RL qliqavelw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0055       _RL fccavesw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0056       _RL fccavelw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy)
                0057       _RL raincon(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0058       _RL rainlsp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0059       _RL snowfall(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0060       INTEGER iras(nSx,nSy)
                0061       INTEGER nlwcld(nSx,nSy),nlwlz(nSx,nSy)
                0062       INTEGER nswcld(nSx,nSy),nswlz(nSx,nSy)
                0063       INTEGER imstturbsw(nSx,nSy),imstturblw(nSx,nSy)
b710f4e61f Andr*0064
e4ce4355da Jean*0065 C ----------------------------------------------------------------------
                0066 C     turbStart :: true when doing a cold-start for turbulence
                0067       COMMON /FIZHI_START/ turbStart
                0068       LOGICAL turbStart(nSx,nSy)