| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_driver.F |
100 |
FIZHI_DRIVER |
_RL tgz(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
104 |
FIZHI_DRIVER |
_RL rfu(im,jm,lm),rfv(im,jm,lm),rft(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
125 |
FIZHI_DRIVER |
istrip = im*jm |
|
./pkg/fizhi/fizhi_driver.F |
165 |
FIZHI_DRIVER |
& low_level,mid_level,im,jm,lm, |
|
./pkg/fizhi/fizhi_driver.F |
181 |
FIZHI_DRIVER |
do j=1,jm |
|
./pkg/fizhi/fizhi_driver.F |
188 |
FIZHI_DRIVER |
& low_level,mid_level,im,jm,lm, |
|
./pkg/fizhi/fizhi_driver.F |
202 |
FIZHI_DRIVER |
call TURBIO (im,jm,lm,istrip,nymd,nhms,bi,bj, |
|
./pkg/fizhi/fizhi_driver.F |
221 |
FIZHI_DRIVER |
& turbu,turbv,turbt,im,jm,lm,bi,bj,istrip,npcs,imglobal) |
|
./pkg/fizhi/fizhi_driver.F |
226 |
FIZHI_DRIVER |
call RAYLEIGH(myid,pl,pkl,pkht,surfz,u,v,t,q,im,jm,lm, |
|
./pkg/fizhi/fizhi_driver.F |
248 |
FIZHI_DRIVER |
& moistu,moistv,moistt,moistq,cumfric,im,jm,lm,ptop,iras, |
|
./pkg/fizhi/fizhi_driver.F |
52 |
FIZHI_DRIVER |
INTEGER myid,im,jm,lm,bi,bj,ptracer,ntracer |
|
./pkg/fizhi/fizhi_driver.F |
58 |
FIZHI_DRIVER |
_RL xlats(im,jm), xlons(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
59 |
FIZHI_DRIVER |
_RL p(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
5 |
FIZHI_DRIVER |
SUBROUTINE FIZHI_DRIVER (myid,im,jm,lm,bi,bj,ptracer,ntracer, |
|
./pkg/fizhi/fizhi_driver.F |
60 |
FIZHI_DRIVER |
_RL u(im,jm,lm),v(im,jm,lm),t(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
61 |
FIZHI_DRIVER |
_RL q(im,jm,lm,ntracer) |
|
./pkg/fizhi/fizhi_driver.F |
62 |
FIZHI_DRIVER |
_RL pl(im,jm,lm),ple(im,jm,lm+1),dpres(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
63 |
FIZHI_DRIVER |
_RL pkht(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_driver.F |
64 |
FIZHI_DRIVER |
_RL pkl(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
65 |
FIZHI_DRIVER |
_RL surfz(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
66 |
FIZHI_DRIVER |
_RL radswt(im,jm), fracland(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
67 |
FIZHI_DRIVER |
INTEGER landtype(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
68 |
FIZHI_DRIVER |
_RL phis_var(im,jm), sea_ice(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
75 |
FIZHI_DRIVER |
_RL lwdt(im,jm,lm),lwdtclr(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
76 |
FIZHI_DRIVER |
_RL swdt(im,jm,lm),swdtclr(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
77 |
FIZHI_DRIVER |
_RL turbu(im,jm,lm),turbv(im,jm,lm),turbt(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
78 |
FIZHI_DRIVER |
_RL turbq(im,jm,lm,ntracer) |
|
./pkg/fizhi/fizhi_driver.F |
79 |
FIZHI_DRIVER |
_RL moistu(im,jm,lm),moistv(im,jm,lm),moistt(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
80 |
FIZHI_DRIVER |
_RL moistq(im,jm,lm,ntracer) |
|
./pkg/fizhi/fizhi_driver.F |
81 |
FIZHI_DRIVER |
_RL chemo3(im,jm,lm),chemq(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
82 |
FIZHI_DRIVER |
_RL albvisdr(im,jm),albvisdf(im,jm),albnirdr(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
83 |
FIZHI_DRIVER |
_RL albnirdf(im,jm),emiss(im,jm,10) |
|
./pkg/fizhi/fizhi_driver.F |
85 |
FIZHI_DRIVER |
_RL radswg(im,jm),swgclr(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
86 |
FIZHI_DRIVER |
_RL fdirpar(im,jm),fdifpar(im,jm),osr(im,jm),osrclr(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
87 |
FIZHI_DRIVER |
_RL tg0(im,jm),radlwg(im,jm),lwgclr(im,jm),st4(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
88 |
FIZHI_DRIVER |
_RL dst4(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
89 |
FIZHI_DRIVER |
_RL dlwdtg(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
90 |
FIZHI_DRIVER |
_RL rainlsp(im,jm),raincon(im,jm),snowfall(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
91 |
FIZHI_DRIVER |
_RL cldtot_lw(im,jm,lm),cldras_lw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
92 |
FIZHI_DRIVER |
_RL cldlsp_lw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
93 |
FIZHI_DRIVER |
_RL lwlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
94 |
FIZHI_DRIVER |
_RL cldtot_sw(im,jm,lm),cldras_sw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
95 |
FIZHI_DRIVER |
_RL cldlsp_sw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
96 |
FIZHI_DRIVER |
_RL swlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
97 |
FIZHI_DRIVER |
_RL qliqavesw(im,jm,lm),qliqavelw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
98 |
FIZHI_DRIVER |
_RL fccavesw(im,jm,lm),fccavelw(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
99 |
FIZHI_DRIVER |
_RL qq(im,jm,lm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
101 |
TRACER_FILL |
_RL d2p(im,jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
120 |
TRACER_FILL |
do j=2,jm-1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
123 |
TRACER_FILL |
phi(jm) = pi/2. |
|
./pkg/fizhi/fizhi_fillnegs.F |
127 |
TRACER_FILL |
do j=2,jm-1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
133 |
TRACER_FILL |
do j=2,jm-2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
140 |
TRACER_FILL |
dyv(i,jm-1) = a*(dphi(jm-1)+0.5*dphi(jm-2)) |
|
./pkg/fizhi/fizhi_fillnegs.F |
145 |
TRACER_FILL |
do j=2,jm-1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
153 |
TRACER_FILL |
do j=2,jm-2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
161 |
TRACER_FILL |
do j=3,jm-2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
168 |
TRACER_FILL |
dyp(i,jm-1) = dyv(i,jm-1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
173 |
TRACER_FILL |
do j=3,jm-2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
180 |
TRACER_FILL |
d2p(i,jm-1) = dxv(i,jm-2)*dyp(i,jm-1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
190 |
TRACER_FILL |
do j=2,jm-1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
202 |
TRACER_FILL |
if( j.eq.jm-1 ) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
58 |
TRACER_FILL |
subroutine TRACER_FILL ( pq,im,jm,lm,dlam,dphi,dp) |
|
./pkg/fizhi/fizhi_fillnegs.F |
84 |
TRACER_FILL |
integer im,jm,lm |
|
./pkg/fizhi/fizhi_fillnegs.F |
85 |
TRACER_FILL |
_RL pq(im,jm,lm),dlam(im),dphi(jm),dp(im,jm,lm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
90 |
TRACER_FILL |
_RL lam(im), phi(jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
95 |
TRACER_FILL |
_RL dxu(im,jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
96 |
TRACER_FILL |
_RL dxv(im,jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
97 |
TRACER_FILL |
_RL dxp(im,jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
98 |
TRACER_FILL |
_RL dyv(im,jm) |
|
./pkg/fizhi/fizhi_fillnegs.F |
99 |
TRACER_FILL |
_RL dyp(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
126 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
136 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
144 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
158 |
GWDRAG |
call STRIPIT ( phis_std,std,im*jm,im*jm,istrip,1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
160 |
GWDRAG |
call STRIPIT ( pz,ps,im*jm,im*jm,istrip,1 ,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
161 |
GWDRAG |
call STRIPIT ( uz,us,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
162 |
GWDRAG |
call STRIPIT ( vz,vs,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
163 |
GWDRAG |
call STRIPIT ( tv,ts,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
164 |
GWDRAG |
call STRIPIT ( pl,plstr,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
165 |
GWDRAG |
call STRIPIT ( ple,plestr,im*jm,im*jm,istrip,Lm+1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
166 |
GWDRAG |
call STRIPIT ( dpres,dpresstr,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
167 |
GWDRAG |
call STRIPITINT ( nthin,nthinstr,im*jm,im*jm,istrip,1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
168 |
GWDRAG |
call STRIPITINT ( nbase,nbasestr,im*jm,im*jm,istrip,1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
175 |
GWDRAG |
call PASTIT( dragus,dragu,istrip,im*jm,im*jm,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
176 |
GWDRAG |
call PASTIT( dragvs,dragv,istrip,im*jm,im*jm,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
177 |
GWDRAG |
call PASTIT( dragxs,dragx,istrip,im*jm,im*jm,1 ,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
178 |
GWDRAG |
call PASTIT( dragys,dragy,istrip,im*jm,im*jm,1 ,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
185 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
206 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
215 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
224 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
249 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
255 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
261 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
272 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
278 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
284 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
43 |
GWDRAG |
integer myid,im,jm,Lm,bi,bj,istrip,npcs,imglobal |
|
./pkg/fizhi/fizhi_gwdrag.F |
44 |
GWDRAG |
_RL pz(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
45 |
GWDRAG |
_RL pl(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
46 |
GWDRAG |
_RL ple(im,jm,Lm+1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
47 |
GWDRAG |
_RL dpres(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
48 |
GWDRAG |
_RL pkz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
49 |
GWDRAG |
_RL uz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
50 |
GWDRAG |
_RL vz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
51 |
GWDRAG |
_RL tz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
52 |
GWDRAG |
_RL qz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
53 |
GWDRAG |
_RL phis_var(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
55 |
GWDRAG |
_RL dudt(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
56 |
GWDRAG |
_RL dvdt(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
57 |
GWDRAG |
_RL dtdt(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
5 |
GWDRAG |
. dudt,dvdt,dtdt,im,jm,Lm,bi,bj,istrip,npcs,imglobal) |
|
./pkg/fizhi/fizhi_gwdrag.F |
61 |
GWDRAG |
_RL tv(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
62 |
GWDRAG |
_RL dragu(im,jm,Lm), dragv(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
63 |
GWDRAG |
_RL dragt(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
64 |
GWDRAG |
_RL dragx(im,jm), dragy(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
65 |
GWDRAG |
_RL sumu(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
66 |
GWDRAG |
integer nthin(im,jm),nbase(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
69 |
GWDRAG |
_RL phis_std(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
84 |
GWDRAG |
_RL tmpdiag(im,jm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
98 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_init_veg.F |
109 |
FIZHI_INIT_VEG |
if( (imdata.ne.im) .or. (jmdata.ne.jm) .or. |
|
./pkg/fizhi/fizhi_init_veg.F |
113 |
FIZHI_INIT_VEG |
print *,' Model Res: ',im,'x',jm,' Data Res: ',imdata,'x',jmdata |
|
./pkg/fizhi/fizhi_init_veg.F |
125 |
FIZHI_INIT_VEG |
bjglobal=bj+(myYGlobalLo-1)/jm |
|
./pkg/fizhi/fizhi_init_veg.F |
127 |
FIZHI_INIT_VEG |
CALL MDS_BYTESWAPR4( im*jm*maxtyp, |
|
./pkg/fizhi/fizhi_init_veg.F |
129 |
FIZHI_INIT_VEG |
CALL MDS_BYTESWAPI4( im*jm*maxtyp, |
|
./pkg/fizhi/fizhi_init_veg.F |
133 |
FIZHI_INIT_VEG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_init_veg.F |
166 |
FIZHI_INIT_VEG |
do j=1,jm |
|
./pkg/fizhi/fizhi_init_veg.F |
184 |
FIZHI_INIT_VEG |
do j=1,jm |
|
./pkg/fizhi/fizhi_init_veg.F |
57 |
FIZHI_INIT_VEG |
INTEGER myThid,im,jm,maxtyp,nchp,nSx,nSy,Nxg,Nyg |
|
./pkg/fizhi/fizhi_init_veg.F |
59 |
FIZHI_INIT_VEG |
INTEGER surftype(im,jm,maxtyp,nSx,nSy) |
|
./pkg/fizhi/fizhi_init_veg.F |
61 |
FIZHI_INIT_VEG |
_RL tilefrac(im,jm,maxtyp,nSx,nSy) |
|
./pkg/fizhi/fizhi_init_veg.F |
62 |
FIZHI_INIT_VEG |
_RL lats(im,jm,nSx,nSy), lons(im,jm,nSx,nSy) |
|
./pkg/fizhi/fizhi_init_veg.F |
6 |
FIZHI_INIT_VEG |
SUBROUTINE FIZHI_INIT_VEG(myThid,vegdata,im,jm,nSx,nSy,Nxg,Nyg, |
|
./pkg/fizhi/fizhi_init_veg.F |
73 |
FIZHI_INIT_VEG |
INTEGER*4 iveg_32(im,jm,maxtyp,Nxg,Nyg) |
|
./pkg/fizhi/fizhi_init_veg.F |
74 |
FIZHI_INIT_VEG |
REAL*4 veg_32(im,jm,maxtyp,Nxg,Nyg) |
|
./pkg/fizhi/fizhi_lwrad.F |
109 |
LWRIO |
do j =1,jm |
|
./pkg/fizhi/fizhi_lwrad.F |
128 |
LWRIO |
CALL STRIP (OZ,OZL ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
129 |
LWRIO |
CALL STRIP (PLZE,ple ,im*jm,ISTRIP,lm+1 ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
130 |
LWRIO |
CALL STRIP (PLZ ,pl ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
131 |
LWRIO |
CALL STRIP (PKZ ,pk ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
132 |
LWRIO |
CALL STRIP (PKHT,pke ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
133 |
LWRIO |
CALL STRIP (TZ,TZL ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
134 |
LWRIO |
CALL STRIP (qz,SHZL ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
135 |
LWRIO |
CALL STRIP (cldtot,CLRO ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
136 |
LWRIO |
CALL STRIP (cldmxo,CLMO ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
137 |
LWRIO |
CALL STRIP (lwlz,cldlz ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
138 |
LWRIO |
CALL STRIP (tgz,tsurf ,im*jm,ISTRIP,1 ,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
140 |
LWRIO |
CALL STRIP (emissivity,emiss,im*jm,ISTRIP,10,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
142 |
LWRIO |
call STRIPITINT (landtype,lwi,im*jm,im*jm,istrip,1,nn) |
|
./pkg/fizhi/fizhi_lwrad.F |
21 |
LWRIO |
integer im,jm,lm |
|
./pkg/fizhi/fizhi_lwrad.F |
22 |
LWRIO |
_RL pz(im,jm),plz(im,jm,lm),plze(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
23 |
LWRIO |
_RL dpres(im,jm,lm),pkht(im,jm,lm+1),pkz(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
245 |
LWRIO |
CALL PASTE ( flx (1,lm+1),RADLWG,ISTRIP,im*jm,1,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
246 |
LWRIO |
CALL PASTE ( flxclr(1,lm+1),LWGCLR,ISTRIP,im*jm,1,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
248 |
LWRIO |
CALL PASTE ( sgmt4, st4,ISTRIP,im*jm,1,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
249 |
LWRIO |
CALL PASTE ( dsgmt4,dst4,ISTRIP,im*jm,1,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
24 |
LWRIO |
_RL tz(im,jm,lm),qz(im,jm,lm),oz(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
255 |
LWRIO |
CALL PASTE(flx(1,1),tempor1,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
256 |
LWRIO |
CALL PASTE(flxclr(1,1),tempor2,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
269 |
LWRIO |
CALL PASTE ( tmpstrip ,tmpimjm ,ISTRIP,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
26 |
LWRIO |
_RL emissivity(im,jm,10) |
|
./pkg/fizhi/fizhi_lwrad.F |
270 |
LWRIO |
CALL PASTE ( DTRAD ,DTRADLW ,ISTRIP,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
271 |
LWRIO |
CALL PASTE ( DTRADC,DTRADLWC,ISTRIP,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
272 |
LWRIO |
CALL PASTE ( dtdtg ,dlwdtg ,ISTRIP,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
27 |
LWRIO |
_RL tgz(im,jm),radlwg(im,jm),st4(im,jm),dst4(im,jm) |
|
./pkg/fizhi/fizhi_lwrad.F |
288 |
LWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_lwrad.F |
28 |
LWRIO |
_RL dtradlw(im,jm,lm),dlwdtg (im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
297 |
LWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_lwrad.F |
29 |
LWRIO |
_RL dtradlwc(im,jm,lm),lwgclr(im,jm) |
|
./pkg/fizhi/fizhi_lwrad.F |
306 |
LWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_lwrad.F |
31 |
LWRIO |
_RL cldlw(im,jm,lm),clwmo(im,jm,lm),lwlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
334 |
LWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_lwrad.F |
34 |
LWRIO |
_RL qliqave(im,jm,lm),fccave(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
35 |
LWRIO |
integer landtype(im,jm) |
|
./pkg/fizhi/fizhi_lwrad.F |
41 |
LWRIO |
_RL cldtot (im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
42 |
LWRIO |
_RL cldmxo (im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
70 |
LWRIO |
_RL tmpimjm(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
71 |
LWRIO |
_RL tempor1(im,jm),tempor2(im,jm) |
|
./pkg/fizhi/fizhi_lwrad.F |
77 |
LWRIO |
_RL tmpdiag(im,jm) |
|
./pkg/fizhi/fizhi_lwrad.F |
7 |
LWRIO |
. im,jm,lm, |
|
./pkg/fizhi/fizhi_lwrad.F |
98 |
LWRIO |
do j =1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1007 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1021 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1040 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1115 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1131 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1148 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
124 |
MOISTIO |
_RL cldlz(istrip,lm), cldwater(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
133 |
MOISTIO |
_RL psubcld (istrip), psubcldg (im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
134 |
MOISTIO |
_RL psubcld_cnt(istrip), psubcldgc(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
148 |
MOISTIO |
_RL tmpdiag(im,jm),tmpdiag2(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
19 |
MOISTIO |
integer im,jm,lm |
|
./pkg/fizhi/fizhi_moist.F |
215 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
224 |
MOISTIO |
DO j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
237 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
23 |
MOISTIO |
_RL pz(im,jm),plz(im,jm,lm),plze(im,jm,lm+1),dpres(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
249 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
24 |
MOISTIO |
_RL pkht(im,jm,lm+1),pkl(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
259 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
25 |
MOISTIO |
_RL tz(im,jm,lm),qz(im,jm,lm,ntracerin) |
|
./pkg/fizhi/fizhi_moist.F |
26 |
MOISTIO |
_RL uz(im,jm,lm),vz(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
273 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
27 |
MOISTIO |
_RL qqz(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
28 |
MOISTIO |
_RL dumoist(im,jm,lm),dvmoist(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
296 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
29 |
MOISTIO |
_RL dtmoist(im,jm,lm),dqmoist(im,jm,lm,ntracerin) |
|
./pkg/fizhi/fizhi_moist.F |
309 |
MOISTIO |
do indx = 1,im*jm |
|
./pkg/fizhi/fizhi_moist.F |
331 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
33 |
MOISTIO |
_RL rainlsp(im,jm),rainconv(im,jm),snowfall(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
353 |
MOISTIO |
CALL STRIP ( pigather, SP ,im*jm,ISTRIP,1 ,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
354 |
MOISTIO |
CALL STRIP ( pkzgather, PLK ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
355 |
MOISTIO |
CALL STRIP ( pkegather, PLKE ,im*jm,ISTRIP,lm+1,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
356 |
MOISTIO |
CALL STRIP ( plzgather, PL ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
357 |
MOISTIO |
CALL STRIP ( plegather, PLE ,im*jm,ISTRIP,lm+1,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
358 |
MOISTIO |
CALL STRIP ( dpgather, dp ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
359 |
MOISTIO |
CALL STRIP ( thgather, TH ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
35 |
MOISTIO |
_RL cldlsp_sw(im,jm,lm),cldras_sw(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
360 |
MOISTIO |
CALL STRIP ( shgather, SHL ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
361 |
MOISTIO |
CALL STRINT( levgather, pbl ,im*jm,ISTRIP,1 ,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
364 |
MOISTIO |
call STRIP ( ugather(1,1,nt), ul(1,1,nt),im*jm,istrip,lm,nn ) |
|
./pkg/fizhi/fizhi_moist.F |
36 |
MOISTIO |
_RL cldtot_sw(im,jm,lm),swlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
38 |
MOISTIO |
_RL cldlsp_lw(im,jm,lm),cldras_lw(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
39 |
MOISTIO |
_RL cldtot_lw(im,jm,lm),lwlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
53 |
MOISTIO |
_RL cldsr(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
59 |
MOISTIO |
_RL cldprs(im,jm),cldtmp(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
60 |
MOISTIO |
_RL cldhi (im,jm),cldlow(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
61 |
MOISTIO |
_RL cldmid(im,jm),totcld(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
622 |
MOISTIO |
call PASTE( CVTH,deltgather,istrip,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
623 |
MOISTIO |
call PASTE( CVQ,delqgather,istrip,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
625 |
MOISTIO |
call PASTE( CVU(1,1,nt),delugather(1,1,nt),istrip,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
633 |
MOISTIO |
call PASTE( cldmas,tmpgather,istrip,im*jm,lm,NN) |
|
./pkg/fizhi/fizhi_moist.F |
634 |
MOISTIO |
call PASTE(detrain,pkegather,istrip,im*jm,lm,NN) |
|
./pkg/fizhi/fizhi_moist.F |
635 |
MOISTIO |
call PASTE(psubcld ,psubcldg ,istrip,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
636 |
MOISTIO |
call PASTE(psubcld_cnt,psubcldgc,istrip,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
63 |
MOISTIO |
_RL CLDLS(im,jm,lm) , CPEN(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
642 |
MOISTIO |
CALL STRIP ( thgather,TH ,im*jm,ISTRIP,lm,NN) |
|
./pkg/fizhi/fizhi_moist.F |
643 |
MOISTIO |
CALL STRIP ( shgather,SHL,im*jm,ISTRIP,lm,NN) |
|
./pkg/fizhi/fizhi_moist.F |
64 |
MOISTIO |
_RL tmpimjm(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
65 |
MOISTIO |
_RL lsp_new(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
667 |
MOISTIO |
CALL PSTBMP(TMP1(1,L),delqgather(1,L),ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
66 |
MOISTIO |
_RL conv_new(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
672 |
MOISTIO |
CALL PSTBMP(TMP1(1,L),deltgather(1,L),ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
679 |
MOISTIO |
call PASTE(tmp1(1,L),deltrnev(1,L),istrip,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
67 |
MOISTIO |
_RL snow_new(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
684 |
MOISTIO |
call PASTE(tmp1(1,L),delqrnev(1,L),istrip,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
69 |
MOISTIO |
_RL qqcolmin(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
70 |
MOISTIO |
_RL qqcolmax(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
713 |
MOISTIO |
call PASTE ( srcld, cldsr,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_moist.F |
714 |
MOISTIO |
call PASTE ( cldlz,cldwater,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_moist.F |
715 |
MOISTIO |
call PASTE ( clsbth, cldls,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_moist.F |
716 |
MOISTIO |
call PASTE ( clboth, cpen ,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_moist.F |
71 |
MOISTIO |
integer levpbl(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
755 |
MOISTIO |
CALL PASTE (tmp1(1,1), lsp_new,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
756 |
MOISTIO |
CALL PASTE (tmp1(1,2),conv_new,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
757 |
MOISTIO |
CALL PASTE (tmp1(1,3),snow_new,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
758 |
MOISTIO |
CALL PASTE (pcnet,raincgath,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_moist.F |
75 |
MOISTIO |
_RL raincgath(im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
768 |
MOISTIO |
call BACK2GRD ( lsp_new,pblindex, lsp_new,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
769 |
MOISTIO |
call BACK2GRD (conv_new,pblindex,conv_new,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
76 |
MOISTIO |
_RL pigather(im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
770 |
MOISTIO |
call BACK2GRD (snow_new,pblindex,snow_new,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
771 |
MOISTIO |
call BACK2GRD (raincgath,pblindex,raincgath,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
775 |
MOISTIO |
call BACK2GRD (psubcldg ,pblindex,psubcldg ,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
776 |
MOISTIO |
call BACK2GRD (psubcldgc,pblindex,psubcldgc,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
77 |
MOISTIO |
_RL thgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
781 |
MOISTIO |
call BACK2GRD (deltgather(1,L),pblindex, dtmoist(1,1,L) ,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
782 |
MOISTIO |
call BACK2GRD (delqgather(1,L),pblindex, dqmoist(1,1,L,1),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
783 |
MOISTIO |
call BACK2GRD ( cpen(1,1,L),pblindex, cpen(1,1,L) ,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
784 |
MOISTIO |
call BACK2GRD ( cldls(1,1,L),pblindex, cldls(1,1,L) ,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
785 |
MOISTIO |
call BACK2GRD (cldwater(1,1,L),pblindex,cldwater(1,1,L) ,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
786 |
MOISTIO |
call BACK2GRD ( pkzgather(1,L),pblindex, pkzgather(1,L) ,im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
78 |
MOISTIO |
_RL shgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
791 |
MOISTIO |
. tmpgather(1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
793 |
MOISTIO |
. pkegather(1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
795 |
MOISTIO |
. deltrnev(1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
797 |
MOISTIO |
. delqrnev(1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
799 |
MOISTIO |
. cldsr(1,1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
79 |
MOISTIO |
_RL pkzgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
807 |
MOISTIO |
. dqmoist(1,1,L,ptracer+nt),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
80 |
MOISTIO |
_RL pkegather(im*jm,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
817 |
MOISTIO |
. dumoist(1,1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
819 |
MOISTIO |
. dvmoist(1,1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
81 |
MOISTIO |
_RL plzgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
823 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
829 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
82 |
MOISTIO |
_RL plegather(im*jm,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
83 |
MOISTIO |
_RL dpgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
84 |
MOISTIO |
_RL tmpgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
858 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
85 |
MOISTIO |
_RL deltgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
86 |
MOISTIO |
_RL delqgather(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
871 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
87 |
MOISTIO |
_RL ugather(im*jm,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
885 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
88 |
MOISTIO |
_RL delugather(im*jm,lm,ntracerin+2-ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
898 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
89 |
MOISTIO |
_RL deltrnev(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
90 |
MOISTIO |
_RL delqrnev(im*jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
911 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
924 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
938 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
93 |
MOISTIO |
integer pblindex(im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
94 |
MOISTIO |
integer levgather(im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
952 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
966 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
979 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
991 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
9 |
MOISTIO |
. im,jm,lm,ptop, |
|
./pkg/fizhi/fizhi_rayleigh.F |
103 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
112 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
121 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
38 |
RAYLEIGH |
integer myid,im,jm,lm,bi,bj |
|
./pkg/fizhi/fizhi_rayleigh.F |
39 |
RAYLEIGH |
_RL zsurf(im,jm),pres(im,jm,lm),pkap(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
40 |
RAYLEIGH |
_RL pekap(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_rayleigh.F |
41 |
RAYLEIGH |
_RL u(im,jm,lm),v(im,jm,lm),t(im,jm,lm),s(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
42 |
RAYLEIGH |
_RL rfu(im,jm,lm),rfv(im,jm,lm),rft(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
45 |
RAYLEIGH |
_RL rf(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
46 |
RAYLEIGH |
_RL z(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
47 |
RAYLEIGH |
_RL dz(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
52 |
RAYLEIGH |
_RL tmpdiag(im,jm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
5 |
RAYLEIGH |
subroutine RAYLEIGH(myid,pres,pkap,pekap,zsurf,u,v,t,s,im,jm,lm, |
|
./pkg/fizhi/fizhi_rayleigh.F |
65 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
73 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
80 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
88 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
115 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
137 |
SWRIO |
CALL ASTRO ( 20040321, NHMS, XLATS,XLONS, im*jm, TEMP1,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
141 |
SWRIO |
CALL ASTRO ( 20040321, NHMS2, XLATS,XLONS, im*jm, TEMP2,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
143 |
SWRIO |
CALL ASTRO ( NYMD, NHMS, XLATS,XLONS, im*jm, TEMP1,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
147 |
SWRIO |
CALL ASTRO ( NYMD2, NHMS2, XLATS,XLONS, im*jm, TEMP2,RA ) |
|
./pkg/fizhi/fizhi_swrad.F |
150 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
166 |
SWRIO |
do j =1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
178 |
SWRIO |
do j =1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
189 |
SWRIO |
do j =1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
202 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
20 |
SWRIO |
integer im,jm,lm |
|
./pkg/fizhi/fizhi_swrad.F |
222 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
22 |
SWRIO |
_RL pz(im,jm),plz(im,jm,lm),plze(im,jm,lm+1),dpres(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
23 |
SWRIO |
_RL pkht(im,jm,lm+1),pkz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
240 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
24 |
SWRIO |
_RL tz(im,jm,lm),qz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
251 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
25 |
SWRIO |
_RL oz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
274 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
27 |
SWRIO |
_RL albvisdr(im,jm),albvisdf(im,jm),albnirdr(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
28 |
SWRIO |
_RL albnirdf(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
29 |
SWRIO |
_RL radswg(im,jm),swgclr(im,jm),fdifpar(im,jm),fdirpar(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
305 |
SWRIO |
call OPTHK(tdry,plz,plze,swlz,cldtot,cldmxo,landtype,im,jm,lm, |
|
./pkg/fizhi/fizhi_swrad.F |
309 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
30 |
SWRIO |
_RL osr(im,jm),osrclr(im,jm),dtradsw(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
319 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
31 |
SWRIO |
_RL dtswclr(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
331 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
33 |
SWRIO |
_RL cldsw(im,jm,lm),cswmo(im,jm,lm),swlz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
351 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
36 |
SWRIO |
_RL qliqave(im,jm,lm),fccave(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
370 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
37 |
SWRIO |
integer landtype(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
389 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
38 |
SWRIO |
_RL xlats(im,jm),xlons(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
417 |
SWRIO |
CALL STRIP ( zenith,COSZ,im*jm,ISTRIP,1,NN ) |
|
./pkg/fizhi/fizhi_swrad.F |
419 |
SWRIO |
CALL STRIP ( plze, ple ,im*jm,ISTRIP,lm+1,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
420 |
SWRIO |
CALL STRIP ( pkz , pk ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
421 |
SWRIO |
CALL STRIP ( dpres,dpstrip,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
422 |
SWRIO |
CALL STRIP ( tdry, tzl ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
423 |
SWRIO |
CALL STRIP ( qz , qzl ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
424 |
SWRIO |
CALL STRIP ( oz , ozl ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
425 |
SWRIO |
CALL STRIP ( tau , taul ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
427 |
SWRIO |
CALL STRIP ( albvisdr,albuvdr,im*jm,ISTRIP,1,NN ) |
|
./pkg/fizhi/fizhi_swrad.F |
428 |
SWRIO |
CALL STRIP ( albvisdf,albuvdf,im*jm,ISTRIP,1,NN ) |
|
./pkg/fizhi/fizhi_swrad.F |
429 |
SWRIO |
CALL STRIP ( albnirdr,albirdr,im*jm,ISTRIP,1,NN ) |
|
./pkg/fizhi/fizhi_swrad.F |
430 |
SWRIO |
CALL STRIP ( albnirdf,albirdf,im*jm,ISTRIP,1,NN ) |
|
./pkg/fizhi/fizhi_swrad.F |
432 |
SWRIO |
call STRIP ( cldtot,clro,im*jm,istrip,lm,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
479 |
SWRIO |
call PASTE ( dtsw , dtradsw ,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
480 |
SWRIO |
call PASTE ( dtswc, dtswclr ,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
482 |
SWRIO |
call PASTE ( flux (1,1),osr ,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
483 |
SWRIO |
call PASTE ( fluxclr(1,1),osrclr,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
485 |
SWRIO |
call PASTE ( flux (1,lm+1),radswg,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
486 |
SWRIO |
call PASTE ( fluxclr(1,lm+1),swgclr,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
488 |
SWRIO |
call PASTE ( dirpar,fdirpar,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
489 |
SWRIO |
call PASTE ( difpar,fdifpar,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
502 |
SWRIO |
call PASTE ( tstrip,albedo,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
50 |
SWRIO |
_RL tdry(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
512 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
51 |
SWRIO |
_RL TEMP1(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
52 |
SWRIO |
_RL TEMP2(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
537 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
53 |
SWRIO |
_RL zenith (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
547 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./pkg/fizhi/fizhi_swrad.F |
54 |
SWRIO |
_RL cldtot (im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
55 |
SWRIO |
_RL cldmxo (im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
56 |
SWRIO |
_RL totcld (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
579 |
OPTHK |
integer im,jm,lm,i,j,L |
|
./pkg/fizhi/fizhi_swrad.F |
57 |
SWRIO |
_RL cldlow (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
581 |
OPTHK |
_RL tl(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
582 |
OPTHK |
_RL pl(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
583 |
OPTHK |
_RL ple(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_swrad.F |
584 |
OPTHK |
_RL lz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
585 |
OPTHK |
_RL cf(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
586 |
OPTHK |
_RL cfm(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
587 |
OPTHK |
_RL tau(im,jm,lm,3) |
|
./pkg/fizhi/fizhi_swrad.F |
588 |
OPTHK |
integer lwi(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
58 |
SWRIO |
_RL cldmid (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
596 |
OPTHK |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
59 |
SWRIO |
_RL cldhi (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
60 |
SWRIO |
_RL taulow (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
61 |
SWRIO |
_RL taumid (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
62 |
SWRIO |
_RL tauhi (im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
63 |
SWRIO |
_RL tautype(im,jm,lm,3) |
|
./pkg/fizhi/fizhi_swrad.F |
64 |
SWRIO |
_RL tau(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
65 |
SWRIO |
_RL albedo(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
6 |
SWRIO |
. low_level,mid_level,im,jm,lm, |
|
./pkg/fizhi/fizhi_swrad.F |
95 |
SWRIO |
_RL tmpdiag(im,jm),tmpdiag2(im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1150 |
TURBIO |
& duturb(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1152 |
TURBIO |
& dvturb(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1154 |
TURBIO |
& dtturb(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1157 |
TURBIO |
& dqturb(1,1,L,nt),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
115 |
TURBIO |
integer im,jm,nlay,istrip,nymd,nhms,bi,bj,ndturb,nltop |
|
./pkg/fizhi/fizhi_turb.F |
1160 |
TURBIO |
& qqgrid(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1163 |
TURBIO |
& fcctmp(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1165 |
TURBIO |
& qliqtmp(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1170 |
TURBIO |
call CTEI ( tz,qz,fcctmp,qliqtmp,plz,pkz,pkht,im*jm,nlay ) |
|
./pkg/fizhi/fizhi_turb.F |
1192 |
TURBIO |
call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
120 |
TURBIO |
_RL pz(im*jm,1),uz(im*jm,1,nlay),vz(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
121 |
TURBIO |
_RL tz(im*jm,1,nlay),qz(im*jm,1,nlay,ntracers) |
|
./pkg/fizhi/fizhi_turb.F |
122 |
TURBIO |
_RL plz(im*jm,1,nlay),plze(im*jm,1,nlay+1),dpres(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
123 |
TURBIO |
_RL pkht(im*jm,1,nlay+1),pkz(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
126 |
TURBIO |
_RL tgz(im*jm,1),fracland(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
127 |
TURBIO |
integer landtype(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
132 |
TURBIO |
_RL alai(nchp),agrn(nchp),thkz(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
134 |
TURBIO |
_RL duturb(im*jm,1,nlay),dvturb(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
135 |
TURBIO |
_RL dtturb(im*jm,1,nlay),dqturb(im*jm,1,nlay,ntracers) |
|
./pkg/fizhi/fizhi_turb.F |
136 |
TURBIO |
_RL st4(im*jm,1),dst4(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
137 |
TURBIO |
_RL radswg(im*jm,1),radswt(im*jm,1),radlwg(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
138 |
TURBIO |
_RL fdifpar(im*jm,1),fdirpar(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
139 |
TURBIO |
_RL rainlsp(im*jm,1),rainconv(im*jm,1),snowfall(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
140 |
TURBIO |
_RL tempref (im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
142 |
TURBIO |
_RL qliqavesw(im*jm,1,nlay),qliqavelw(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
143 |
TURBIO |
_RL fccavelw (im*jm,1,nlay),fccavesw (im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
144 |
TURBIO |
_RL qqgrid (im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
160 |
TURBIO |
_RL qliqtmp(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
161 |
TURBIO |
_RL fcctmp(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
162 |
TURBIO |
_RL tmpdiag(im*jm,1), tmpFac |
|
./pkg/fizhi/fizhi_turb.F |
163 |
TURBIO |
_RL thtgz(im*jm) |
|
./pkg/fizhi/fizhi_turb.F |
26 |
TURBIO |
SUBROUTINE TURBIO (im,jm,nlay,istrip,nymd,nhms,bi,bj, qbeg |
|
./pkg/fizhi/fizhi_turb.F |
293 |
TURBIO |
ijall = im * jm |
|
./pkg/fizhi/fizhi_turb.F |
325 |
TURBIO |
call GRD2MSC(pz(1,1),im,jm,igrd,pmsc,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
327 |
TURBIO |
call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
332 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
336 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
340 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
344 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
348 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
352 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
353 |
TURBIO |
call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
354 |
TURBIO |
call GRD2MSC(rainlsp,im,jm,igrd,lsprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
355 |
TURBIO |
call GRD2MSC(rainconv,im,jm,igrd,cnvprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
356 |
TURBIO |
call GRD2MSC(snowfall,im,jm,igrd,snowprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
431 |
TURBIO |
call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm) |
|
./pkg/fizhi/fizhi_utils.F |
655 |
GRD2MSC |
integer im,jm,mxchps,nchp |
|
./pkg/fizhi/fizhi_utils.F |
680 |
MSC2GRD |
integer im,jm,mxchps,nchp |
|
./pkg/fizhi/fizhi_utils.F |
904 |
PKAPPA |
subroutine PKAPPA (im,jm,lm,ple,pkle,pkz) |
|
./pkg/fizhi/fizhi_utils.F |
919 |
PKAPPA |
integer im,jm,lm |
|
./pkg/fizhi/fizhi_utils.F |
920 |
PKAPPA |
_RL ple(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_utils.F |
921 |
PKAPPA |
_RL pkle(im,jm,lm+1) |
|
./pkg/fizhi/fizhi_utils.F |
922 |
PKAPPA |
_RL pkz(im,jm,lm) |
|
./pkg/fizhi/fizhi_utils.F |
930 |
PKAPPA |
do j = 1,jm |
|
./pkg/fizhi/slprs.F |
21 |
SLPRS |
integer im,jm,lm |
|
./pkg/fizhi/slprs.F |
22 |
SLPRS |
_RL SLP (im*jm) |
|
./pkg/fizhi/slprs.F |
23 |
SLPRS |
_RL PHIS (im*jm), THZ (im*jm,lm) |
|
./pkg/fizhi/slprs.F |
24 |
SLPRS |
_RL lwmask(im*jm) |
|
./pkg/fizhi/slprs.F |
25 |
SLPRS |
_RL ple(im*jm,lm+1) |
|
./pkg/fizhi/slprs.F |
33 |
SLPRS |
_RL tm (im*jm) |
|
./pkg/fizhi/slprs.F |
34 |
SLPRS |
integer Ltop (im*jm) |
|
./pkg/fizhi/slprs.F |
43 |
SLPRS |
do i=1,im*jm |
|
./pkg/fizhi/slprs.F |
49 |
SLPRS |
do i=1,im*jm |
|
./pkg/fizhi/slprs.F |
57 |
SLPRS |
do i=1,im*jm |
|
./pkg/fizhi/slprs.F |
5 |
SLPRS |
subroutine SLPRS (PHIS,PLE,THZ,lwmask,im,jm,lm,SLP) |
|
./pkg/fizhi/slprs.F |
65 |
SLPRS |
do i=1,im*jm |
|
./pkg/fizhi/update_chemistry_exports.F |
111 |
INTERP_CHEMISTRY |
. qz,plz,xlat,im,jm,lm,nSx,nSy,bi,bj,ozrad,qzrad) |
|
./pkg/fizhi/update_chemistry_exports.F |
121 |
INTERP_CHEMISTRY |
integer im,jm,lm |
|
./pkg/fizhi/update_chemistry_exports.F |
122 |
INTERP_CHEMISTRY |
_RL qz(im,jm,lm),plz(im,jm,lm) |
|
./pkg/fizhi/update_chemistry_exports.F |
123 |
INTERP_CHEMISTRY |
_RL xlat(im,jm) |
|
./pkg/fizhi/update_chemistry_exports.F |
124 |
INTERP_CHEMISTRY |
_RL ozrad(im,jm,lm,nSx,nSy) |
|
./pkg/fizhi/update_chemistry_exports.F |
125 |
INTERP_CHEMISTRY |
_RL qzrad(im,jm,lm,nSx,nSy) |
|
./pkg/fizhi/update_chemistry_exports.F |
131 |
INTERP_CHEMISTRY |
call INTERP_QZ (stratq,nwatlevs,nwatlats,watlevs,watlats,im*jm, |
|
./pkg/fizhi/update_chemistry_exports.F |
133 |
INTERP_CHEMISTRY |
call INTERP_OZ (ozone ,nozlevs,nozlats,ozlevs,ozlats,im*jm, |
|
./pkg/fizhi/update_earth_exports.F |
1000 |
GETEMISS |
_RL emiss(im,jm,10,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
1003 |
GETEMISS |
_RL tmpij(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
1020 |
GETEMISS |
do j = 1,jm |
|
./pkg/fizhi/update_earth_exports.F |
1026 |
GETEMISS |
& nchptot,fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
1027 |
GETEMISS |
do j = 1,jm |
|
./pkg/fizhi/update_earth_exports.F |
1221 |
GET_LANDFRAC |
SUBROUTINE GET_LANDFRAC(im,jm,nSx,nSy,bi,bj,maxtyp,surftype, |
|
./pkg/fizhi/update_earth_exports.F |
1230 |
GET_LANDFRAC |
INTEGER im,jm,nSx,nSy,bi,bj,maxtyp |
|
./pkg/fizhi/update_earth_exports.F |
1231 |
GET_LANDFRAC |
INTEGER surftype(im,jm,maxtyp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
1232 |
GET_LANDFRAC |
_RL tilefrac(im,jm,maxtyp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
1233 |
GET_LANDFRAC |
_RL frac(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
1237 |
GET_LANDFRAC |
do j=1,jm |
|
./pkg/fizhi/update_earth_exports.F |
1244 |
GET_LANDFRAC |
do j=1,jm |
|
./pkg/fizhi/update_earth_exports.F |
820 |
GETALB |
SUBROUTINE GETALB(sec,month,day,cosz,snodep,fraci,fracg,im,jm, |
|
./pkg/fizhi/update_earth_exports.F |
862 |
GETALB |
INTEGER sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
863 |
GETALB |
_RL cosz(im,jm),fraci(im,jm),fracg(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
867 |
GETALB |
_RL albvr(im,jm,nSx,nSy),albvf(im,jm,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
868 |
GETALB |
_RL albnr(im,jm,nSx,nSy),albnf(im,jm,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
880 |
GETALB |
_RL alboc(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
884 |
GETALB |
_RL tmpij(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
899 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd(1,bi,bj),zenith,nchp,nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
914 |
GETALB |
& fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
927 |
GETALB |
& fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
939 |
GETALB |
& fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
951 |
GETALB |
& fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
963 |
GETEMISS |
SUBROUTINE GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
994 |
GETEMISS |
INTEGER im,jm,nchp,nchptot,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
995 |
GETEMISS |
_RL fracg(im,jm) |
|
./pkg/fizhi/update_ocean_exports.F |
625 |
BCDATA |
subroutine BCDATA (iunit,im,jm,nrec1,nrec2,field1,field2) |
|
./pkg/fizhi/update_ocean_exports.F |
647 |
BCDATA |
integer iunit,im,jm,nrec1,nrec2 |
|
./pkg/fizhi/update_ocean_exports.F |
649 |
BCDATA |
_RL field1(im,jm) |
|
./pkg/fizhi/update_ocean_exports.F |
650 |
BCDATA |
_RL field2(im,jm) |
|
./pkg/fizhi/update_ocean_exports.F |
653 |
BCDATA |
real*4 f1(im,jm), f2(im,jm) |
|
./pkg/fizhi/update_ocean_exports.F |
660 |
BCDATA |
call MDS_BYTESWAPR4( im*jm, f1) |
|
./pkg/fizhi/update_ocean_exports.F |
661 |
BCDATA |
call MDS_BYTESWAPR4( im*jm, f2) |
|
./pkg/fizhi/update_ocean_exports.F |
663 |
BCDATA |
do j=1,jm |
|
./pkg/fizhi/update_ocean_exports.F |
673 |
BCHEADER |
. cname, cdscrip, im, jm, lat0, lon0, ndatebc, |
|
./pkg/fizhi/update_ocean_exports.F |
706 |
BCHEADER |
integer im,jm,ndatebc,nymdbc(ndmax),nhmsbc(ndmax) |
|
./pkg/fizhi/update_ocean_exports.F |
734 |
BCHEADER |
jm = jm_32 |
|
./pkg/obcs/obcs_init_fixed.F |
292 |
OBCS_INIT_FIXED |
jm = MAX( j-1, 1-OLy ) |
|
./pkg/obcs/obcs_init_fixed.F |
301 |
OBCS_INIT_FIXED |
IF ( OB_Ie(jm,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
302 |
OBCS_INIT_FIXED |
iB = MAX( iB, OB_Ie(jm,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
311 |
OBCS_INIT_FIXED |
jm = MAX( j-1, 1-OLy ) |
|
./pkg/obcs/obcs_init_fixed.F |
320 |
OBCS_INIT_FIXED |
IF ( OB_Iw(jm,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
321 |
OBCS_INIT_FIXED |
iB = MIN( iB, OB_Iw(jm,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
47 |
OBCS_INIT_FIXED |
INTEGER im, jm |
|
./pkg/seaice/lsr.F |
53 |
LSR |
INTEGER i, j, m, bi, bj, j1, j2, im, jm |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
120 |
FIZHI_INIT_VEG |
do j=1,jm |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
57 |
FIZHI_INIT_VEG |
INTEGER myThid,im,jm,maxtyp,nchp,nSx,nSy,Nxg,Nyg |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
59 |
FIZHI_INIT_VEG |
INTEGER surftype(im,jm,maxtyp,nSx,nSy) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
61 |
FIZHI_INIT_VEG |
_RL tilefrac(im,jm,maxtyp,nSx,nSy) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
62 |
FIZHI_INIT_VEG |
_RL lats(im,jm,nSx,nSy), lons(im,jm,nSx,nSy) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
6 |
FIZHI_INIT_VEG |
SUBROUTINE FIZHI_INIT_VEG(myThid,vegdata,im,jm,nSx,nSy,Nxg,Nyg, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
75 |
FIZHI_INIT_VEG |
do j = 1,jm |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
84 |
FIZHI_INIT_VEG |
do j = 1,jm |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
130 |
FIZHI_INIT_VEG |
do j=1,jm |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
148 |
FIZHI_INIT_VEG |
do j=1,jm |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
57 |
FIZHI_INIT_VEG |
INTEGER myThid,im,jm,maxtyp,nchp,nSx,nSy,Nxg,Nyg |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
59 |
FIZHI_INIT_VEG |
INTEGER surftype(im,jm,maxtyp,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
61 |
FIZHI_INIT_VEG |
_RL tilefrac(im,jm,maxtyp,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
62 |
FIZHI_INIT_VEG |
_RL lats(im,jm,nSx,nSy), lons(im,jm,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
6 |
FIZHI_INIT_VEG |
SUBROUTINE FIZHI_INIT_VEG(myThid,vegdata,im,jm,nSx,nSy,Nxg,Nyg, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
81 |
FIZHI_INIT_VEG |
do j = 1,jm |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
97 |
FIZHI_INIT_VEG |
do j = 1,jm |
|
./model/src/solve_uv_tridiago.F |
328 |
SOLVE_UV_TRIDIAGO |
jm = j-1 |
|
./model/src/solve_uv_tridiago.F |
330 |
SOLVE_UV_TRIDIAGO |
tmpVar = bV(i,j,k,bi,bj) - alpV(i,j,bi,bj)*gamV(i,jm,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
338 |
SOLVE_UV_TRIDIAGO |
& - alpV(i,j,bi,bj)*yy_V(i,jm,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
341 |
SOLVE_UV_TRIDIAGO |
alpV(i,j,bi,bj) = - alpV(i,j,bi,bj)*alpV(i,jm,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
80 |
SOLVE_UV_TRIDIAGO |
INTEGER jj, jm, jp |