| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
105 |
DO_FIZHI |
_RL u(sNx,sNy,Nrphys),v(sNx,sNy,Nrphys),t(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
106 |
DO_FIZHI |
_RL q(sNx,sNy,Nrphys,ntracer) |
|
./pkg/fizhi/do_fizhi.F |
107 |
DO_FIZHI |
_RL pl(sNx,sNy,Nrphys,nSx,nSy),pkl(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
108 |
DO_FIZHI |
_RL ple(sNx,sNy,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
109 |
DO_FIZHI |
_RL pkle(sNx,sNy,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
110 |
DO_FIZHI |
_RL dpres(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
111 |
DO_FIZHI |
_RL lwdt(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
112 |
DO_FIZHI |
_RL lwdtclr(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
113 |
DO_FIZHI |
_RL swdt(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
114 |
DO_FIZHI |
_RL swdtclr(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
115 |
DO_FIZHI |
_RL turbu(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
116 |
DO_FIZHI |
_RL turbv(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
117 |
DO_FIZHI |
_RL turbt(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
118 |
DO_FIZHI |
_RL turbq(sNx,sNy,Nrphys,ntracer,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
119 |
DO_FIZHI |
_RL moistu(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
120 |
DO_FIZHI |
_RL moistv(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
121 |
DO_FIZHI |
_RL moistt(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
122 |
DO_FIZHI |
_RL moistq(sNx,sNy,Nrphys,ntracer,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
129 |
DO_FIZHI |
_RL dst4(sNx,sNy,nSx,nSy),dlwdtg(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
130 |
DO_FIZHI |
_RL qq(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
134 |
DO_FIZHI |
_RL cldtot_lw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
135 |
DO_FIZHI |
_RL cldras_lw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
136 |
DO_FIZHI |
_RL cldlsp_lw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
137 |
DO_FIZHI |
_RL lwlz(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
138 |
DO_FIZHI |
_RL cldtot_sw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
139 |
DO_FIZHI |
_RL cldras_sw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
140 |
DO_FIZHI |
_RL cldlsp_sw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
141 |
DO_FIZHI |
_RL swlz(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
142 |
DO_FIZHI |
_RL qliqavesw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
143 |
DO_FIZHI |
_RL qliqavelw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
144 |
DO_FIZHI |
_RL fccavesw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
145 |
DO_FIZHI |
_RL fccavelw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
194 |
DO_FIZHI |
ple(i,j,Nrphys+1,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
195 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./pkg/fizhi/do_fizhi.F |
196 |
DO_FIZHI |
p(i,j,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
203 |
DO_FIZHI |
do L = 1,Nrphys |
|
./pkg/fizhi/do_fizhi.F |
234 |
DO_FIZHI |
call PKAPPA (im2,jm2,Nrphys,ple(1,1,1,bi,bj),pkle(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
237 |
DO_FIZHI |
call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer, |
|
./pkg/fizhi/do_fizhi.F |
268 |
DO_FIZHI |
do L = 1,Nrphys |
|
./pkg/fizhi/do_fizhi.F |
297 |
DO_FIZHI |
do L = 1,Nrphys |
|
./pkg/fizhi/do_fizhi.F |
316 |
DO_FIZHI |
& im1,im2,jm1,jm2,Nrphys,nSx,nSy,bi,bj,ntracer) |
|
./pkg/fizhi/fizhi_SHP.h |
13 |
NO PROCEDURE |
_RL ubef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_SHP.h |
14 |
NO PROCEDURE |
_RL vbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_SHP.h |
15 |
NO PROCEDURE |
_RL thbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_SHP.h |
16 |
NO PROCEDURE |
_RL sbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_SIZE.h |
6 |
NO PROCEDURE |
integer Nrphys |
|
./pkg/fizhi/fizhi_SIZE.h |
7 |
NO PROCEDURE |
parameter (Nrphys = 20) |
|
./pkg/fizhi/fizhi_chemistry_coms.h |
10 |
NO PROCEDURE |
parameter (nlevsn2o = Nrphys) |
|
./pkg/fizhi/fizhi_chemistry_coms.h |
11 |
NO PROCEDURE |
parameter (nlevsmeth = Nrphys) |
|
./pkg/fizhi/fizhi_chemistry_coms.h |
32 |
NO PROCEDURE |
_RL o3(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_chemistry_coms.h |
33 |
NO PROCEDURE |
_RL qstr(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_coms.h |
12 |
NO PROCEDURE |
_RL uphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
13 |
NO PROCEDURE |
_RL vphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
14 |
NO PROCEDURE |
_RL thphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
15 |
NO PROCEDURE |
_RL sphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
18 |
NO PROCEDURE |
_RL xlmt(nchp,Nrphys,nSx,nSy), khmt(nchp,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
19 |
NO PROCEDURE |
_RL tke(nchp,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
25 |
NO PROCEDURE |
_RL duphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
26 |
NO PROCEDURE |
_RL dvphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
27 |
NO PROCEDURE |
_RL dthphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
28 |
NO PROCEDURE |
_RL dsphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
48 |
NO PROCEDURE |
_RL cldtot_lw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
49 |
NO PROCEDURE |
_RL cldras_lw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
50 |
NO PROCEDURE |
_RL cldlsp_lw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
51 |
NO PROCEDURE |
_RL lwlz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
52 |
NO PROCEDURE |
_RL cldtot_sw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
53 |
NO PROCEDURE |
_RL cldras_sw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
54 |
NO PROCEDURE |
_RL cldlsp_sw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
55 |
NO PROCEDURE |
_RL swlz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
56 |
NO PROCEDURE |
_RL qliqavesw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
57 |
NO PROCEDURE |
_RL qliqavelw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
58 |
NO PROCEDURE |
_RL fccavesw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
59 |
NO PROCEDURE |
_RL fccavelw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_init_chem.F |
186 |
GET_METHANE_N2O |
subroutine GET_METHANE_N2O (pres,Nrphys,n2o,methane) |
|
./pkg/fizhi/fizhi_init_chem.F |
199 |
GET_METHANE_N2O |
integer Nrphys |
|
./pkg/fizhi/fizhi_init_chem.F |
200 |
GET_METHANE_N2O |
_RL n2o(Nrphys),methane(Nrphys) |
|
./pkg/fizhi/fizhi_init_chem.F |
201 |
GET_METHANE_N2O |
_RL pres(Nrphys) |
|
./pkg/fizhi/fizhi_init_chem.F |
202 |
GET_METHANE_N2O |
_RL hght(Nrphys), slope,pr1,pr2,hpr1,hpr2 |
|
./pkg/fizhi/fizhi_init_chem.F |
21 |
FIZHI_INIT_CHEM |
integer mythid,nozlevs,nozlats,nwatlevs,nwatlats,Nrphys |
|
./pkg/fizhi/fizhi_init_chem.F |
239 |
GET_METHANE_N2O |
do L2 = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_chem.F |
271 |
GET_METHANE_N2O |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_chem.F |
27 |
FIZHI_INIT_CHEM |
_RL pressure(Nrphys),methane(Nrphys),n2o(Nrphys) |
|
./pkg/fizhi/fizhi_init_chem.F |
281 |
GET_METHANE_N2O |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_chem.F |
38 |
FIZHI_INIT_CHEM |
call GET_METHANE_N2O (pressure,Nrphys,n2o,methane) |
|
./pkg/fizhi/fizhi_init_chem.F |
8 |
FIZHI_INIT_CHEM |
. Nrphys,pressure,n2o,methane,co2,cfc11,cfc12,cfc22) |
|
./pkg/fizhi/fizhi_init_fixed.F |
128 |
FIZHI_INIT_FIXED |
do L = 2,Nrphys+1 |
|
./pkg/fizhi/fizhi_init_fixed.F |
133 |
FIZHI_INIT_FIXED |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_fixed.F |
134 |
FIZHI_INIT_FIXED |
pressure(L)=(pressure0(Nrphys+2-L)+pressure0(Nrphys+1-L))/2. |
|
./pkg/fizhi/fizhi_init_fixed.F |
140 |
FIZHI_INIT_FIXED |
& Nrphys,pressure,n2o,methane,co2,cfc11,cfc12,cfc22) |
|
./pkg/fizhi/fizhi_init_fixed.F |
48 |
FIZHI_INIT_FIXED |
_RL pressure0(Nrphys+1) |
|
./pkg/fizhi/fizhi_init_fixed.F |
49 |
FIZHI_INIT_FIXED |
_RL pressure(Nrphys) |
|
./pkg/fizhi/fizhi_init_vars.F |
130 |
FIZHI_INIT_VARS |
do L = 2,Nrphys+1 |
|
./pkg/fizhi/fizhi_init_vars.F |
134 |
FIZHI_INIT_VARS |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_init_vars.F |
135 |
FIZHI_INIT_VARS |
& pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_init_vars.F |
142 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_vars.F |
163 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
166 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_vars.F |
169 |
FIZHI_INIT_VARS |
uphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
174 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
175 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_vars.F |
178 |
FIZHI_INIT_VARS |
vphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
183 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,2,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
184 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_vars.F |
187 |
FIZHI_INIT_VARS |
thphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
192 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
193 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_vars.F |
196 |
FIZHI_INIT_VARS |
sphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
202 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_vars.F |
234 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_vars.F |
260 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_vars.F |
53 |
FIZHI_INIT_VARS |
_RL pephy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_init_vars.F |
55 |
FIZHI_INIT_VARS |
_RL windphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_init_vars.F |
58 |
FIZHI_INIT_VARS |
_RL tempphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_read_pickup.F |
44 |
FIZHI_READ_PICKUP |
_RL temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_read_pickup.F |
56 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,uphy, 1,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
57 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,vphy, 2,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
58 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,thphy, 3,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
59 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,sphy, 4,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
60 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldtot_lw, 5,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
61 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldras_lw, 6,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
62 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldlsp_lw, 7,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
63 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,lwlz, 8,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
64 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldtot_sw, 9,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
65 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldras_sw,10,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
66 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldlsp_sw,11,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
67 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,swlz, 12,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
68 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,qliqavelw,13,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
69 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,qliqavesw,14,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
70 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,fccavelw, 15,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
71 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,fccavesw, 16,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
72 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,temp, 17,myIter,myThid ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
163 |
FIZHI_WRITE_VEGTILES |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
170 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 0*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
174 |
FIZHI_WRITE_VEGTILES |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
181 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 1*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
185 |
FIZHI_WRITE_VEGTILES |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
192 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 2*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
203 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 1 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
212 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 2 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
221 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 3 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
230 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 4 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
239 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 5 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
248 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 6 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
257 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 7 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
266 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 8 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
420 |
FIZHI_READ_VEGTILES |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
421 |
FIZHI_READ_VEGTILES |
irec = 4 + 0*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
431 |
FIZHI_READ_VEGTILES |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
432 |
FIZHI_READ_VEGTILES |
irec = 4 + 1*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
442 |
FIZHI_READ_VEGTILES |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
443 |
FIZHI_READ_VEGTILES |
irec = 4 + 2*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
454 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 1 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
463 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 2 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
472 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 3 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
481 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 4 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
490 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 5 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
499 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 6 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
508 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 7 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
517 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 8 |
|
./pkg/fizhi/fizhi_step_diag.F |
13 |
FIZHI_STEP_DIAG |
INTEGER myid,im1,im2,jm1,jm2,Nrphys,Nbi,Nbj,bi,bj,ntracer |
|
./pkg/fizhi/fizhi_step_diag.F |
15 |
FIZHI_STEP_DIAG |
_RL uphy(im2,jm2,Nrphys) |
|
./pkg/fizhi/fizhi_step_diag.F |
163 |
FIZHI_STEP_DIAG |
do L=1,Nrphys |
|
./pkg/fizhi/fizhi_step_diag.F |
16 |
FIZHI_STEP_DIAG |
_RL vphy(im2,jm2,Nrphys) |
|
./pkg/fizhi/fizhi_step_diag.F |
17 |
FIZHI_STEP_DIAG |
_RL thphy(im2,jm2,Nrphys) |
|
./pkg/fizhi/fizhi_step_diag.F |
18 |
FIZHI_STEP_DIAG |
_RL sphy(im2,jm2,Nrphys) |
|
./pkg/fizhi/fizhi_step_diag.F |
19 |
FIZHI_STEP_DIAG |
_RL qq(im2,jm2,Nrphys,Nbi,Nbj),pk(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
20 |
FIZHI_STEP_DIAG |
_RL dp(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
27 |
FIZHI_STEP_DIAG |
_RL turbu(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
28 |
FIZHI_STEP_DIAG |
_RL turbv(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
29 |
FIZHI_STEP_DIAG |
_RL turbt(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
30 |
FIZHI_STEP_DIAG |
_RL turbq(im2,jm2,Nrphys,ntracer,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
31 |
FIZHI_STEP_DIAG |
_RL moistu(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
32 |
FIZHI_STEP_DIAG |
_RL moistv(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
337 |
FIZHI_STEP_DIAG |
do L=1,Nrphys |
|
./pkg/fizhi/fizhi_step_diag.F |
33 |
FIZHI_STEP_DIAG |
_RL moistt(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
34 |
FIZHI_STEP_DIAG |
_RL moistq(im2,jm2,Nrphys,ntracer,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
35 |
FIZHI_STEP_DIAG |
_RL lwdt(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
361 |
FIZHI_STEP_DIAG |
do L=1,Nrphys |
|
./pkg/fizhi/fizhi_step_diag.F |
36 |
FIZHI_STEP_DIAG |
_RL swdt(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
37 |
FIZHI_STEP_DIAG |
_RL lwdtclr(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
385 |
FIZHI_STEP_DIAG |
do L=1,Nrphys |
|
./pkg/fizhi/fizhi_step_diag.F |
38 |
FIZHI_STEP_DIAG |
_RL swdtclr(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
39 |
FIZHI_STEP_DIAG |
_RL dlwdtg(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
410 |
FIZHI_STEP_DIAG |
do L=1,Nrphys |
|
./pkg/fizhi/fizhi_step_diag.F |
436 |
FIZHI_STEP_DIAG |
do L=1,Nrphys |
|
./pkg/fizhi/fizhi_step_diag.F |
9 |
FIZHI_STEP_DIAG |
& im1,im2,jm1,jm2,Nrphys,Nbi,Nbj,bi,bj,ntracer) |
|
./pkg/fizhi/fizhi_wrapper.F |
115 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
136 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
165 |
FIZHI_WRAPPER |
do L = 2,Nrphys+1 |
|
./pkg/fizhi/fizhi_wrapper.F |
169 |
FIZHI_WRAPPER |
do L = 1,Nrphys+1 |
|
./pkg/fizhi/fizhi_wrapper.F |
170 |
FIZHI_WRAPPER |
pephy4fiz(i,j,Nrphys+2-L,bi,bj)=pephy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
172 |
FIZHI_WRAPPER |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
173 |
FIZHI_WRAPPER |
& pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_wrapper.F |
213 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
221 |
FIZHI_WRAPPER |
& Nrphys,0,1,1,myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
235 |
FIZHI_WRAPPER |
L = Nrphys+1 |
|
./pkg/fizhi/fizhi_wrapper.F |
242 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
253 |
FIZHI_WRAPPER |
& fracland(1,1,bi,bj),sNx,sNy,Nrphys,slp) |
|
./pkg/fizhi/fizhi_wrapper.F |
263 |
FIZHI_WRAPPER |
& idim1,idim2,jdim1,jdim2,Nrphys,nSx,nSy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/fizhi_wrapper.F |
289 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
290 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=duphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
294 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
|
./pkg/fizhi/fizhi_wrapper.F |
298 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
299 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dvphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
303 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
|
./pkg/fizhi/fizhi_wrapper.F |
307 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
308 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dthphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
312 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
|
./pkg/fizhi/fizhi_wrapper.F |
316 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
317 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dsphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
321 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
|
./pkg/fizhi/fizhi_wrapper.F |
43 |
FIZHI_WRAPPER |
_RL pephy4fiz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
44 |
FIZHI_WRAPPER |
_RL pephy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
46 |
FIZHI_WRAPPER |
_RL tempphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
48 |
FIZHI_WRAPPER |
_RL tempLdiag(sNx,sNy,Nrphys+1) |
|
./pkg/fizhi/fizhi_wrapper.F |
49 |
FIZHI_WRAPPER |
_RL tempLdiag2(sNx,sNy,Nrphys) |
|
./pkg/fizhi/fizhi_wrapper.F |
73 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
94 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_write_pickup.F |
112 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,temp,17,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
48 |
FIZHI_WRITE_PICKUP |
_RL temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_write_pickup.F |
54 |
FIZHI_WRITE_PICKUP |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_write_pickup.F |
73 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,uphy, 1,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
74 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,vphy, 2,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
75 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,thphy, 3,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
76 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,sphy, 4,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
78 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldtot_lw, 5,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
79 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldras_lw, 6,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
80 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldlsp_lw, 7,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
81 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,lwlz, 8,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
82 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldtot_sw, 9,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
83 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldras_sw,10,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
84 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldlsp_sw,11,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
85 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,swlz, 12,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
86 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,qliqavelw,13,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
87 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,qliqavesw,14,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
88 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,fccavelw, 15,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
89 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,fccavesw, 16,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_state.F |
60 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, uphy, 1, myIter,myThid ) |
|
./pkg/fizhi/fizhi_write_state.F |
62 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, vphy, 1, myIter,myThid ) |
|
./pkg/fizhi/fizhi_write_state.F |
64 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, thphy, 1, myIter,myThid ) |
|
./pkg/fizhi/fizhi_write_state.F |
66 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, sphy, 1, myIter,myThid ) |
|
./pkg/fizhi/getpwhere.F |
102 |
GETPWHERE |
& ' , Nrphys=', Nrphys, |
|
./pkg/fizhi/getpwhere.F |
112 |
GETPWHERE |
DO L = ntry+1,Nrphys |
|
./pkg/fizhi/getpwhere.F |
113 |
GETPWHERE |
pref(L) = (Nrphys-L+0.5)*dpTop |
|
./pkg/fizhi/getpwhere.F |
124 |
GETPWHERE |
DO L = ntry+1,MIN(Nrphys,ntry+Nr-dynlev) |
|
./pkg/fizhi/getpwhere.F |
150 |
GETPWHERE |
IF ( upperBnd.LT.Nrphys-1 ) THEN |
|
./pkg/fizhi/getpwhere.F |
157 |
GETPWHERE |
do L = ntry+1,Nrphys-1 |
|
./pkg/fizhi/getpwhere.F |
162 |
GETPWHERE |
do L = ntry+1,Nrphys-1 |
|
./pkg/fizhi/getpwhere.F |
167 |
GETPWHERE |
pref(Nrphys) = 0.5 |
|
./pkg/fizhi/getpwhere.F |
168 |
GETPWHERE |
if(Nr.eq.70)pref(Nrphys) = 0.005 |
|
./pkg/fizhi/getpwhere.F |
172 |
GETPWHERE |
DO L = 1,Nrphys |
|
./pkg/fizhi/getpwhere.F |
177 |
GETPWHERE |
levpressures(n) = Nrphys+1-tmplev |
|
./pkg/fizhi/getpwhere.F |
186 |
GETPWHERE |
WRITE(ioUnit,'(10F10.4)') (pref(L),L=ntry,Nrphys) |
|
./pkg/fizhi/getpwhere.F |
63 |
GETPWHERE |
_RL pref(Nrphys) |
|
./pkg/fizhi/step_fizhi_corr.F |
109 |
STEP_FIZHI_CORR |
do L = 2,Nrphys+1 |
|
./pkg/fizhi/step_fizhi_corr.F |
113 |
STEP_FIZHI_CORR |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/step_fizhi_corr.F |
114 |
STEP_FIZHI_CORR |
. pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/step_fizhi_corr.F |
120 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
124 |
STEP_FIZHI_CORR |
. sqrt(uphy(i,j,Nrphys+1-L,bi,bj)*uphy(i,j,Nrphys+1-L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
125 |
STEP_FIZHI_CORR |
. + vphy(i,j,Nrphys+1-L,bi,bj)*vphy(i,j,Nrphys+1-L,bi,bj)) |
|
./pkg/fizhi/step_fizhi_corr.F |
139 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
142 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
146 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
148 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
151 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
155 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
157 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
160 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
164 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
166 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
169 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
173 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
217 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
219 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
222 |
STEP_FIZHI_CORR |
uphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
227 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
228 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
231 |
STEP_FIZHI_CORR |
vphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
236 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
237 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
240 |
STEP_FIZHI_CORR |
thphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
245 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
246 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
249 |
STEP_FIZHI_CORR |
sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
261 |
STEP_FIZHI_CORR |
. Nrphys,Nsx,Nsy,1,sNx,1,sNy,bi,bj, |
|
./pkg/fizhi/step_fizhi_corr.F |
264 |
STEP_FIZHI_CORR |
call QCHECK (im1,im2,jm1,jm2,Nrphys,Nsx,Nsy,idim1,idim2, |
|
./pkg/fizhi/step_fizhi_corr.F |
271 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(uphy,'UAVE ',0,Nrphys,0,1,1,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
272 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(vphy,'VAVE ',0,Nrphys,0,1,1,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
273 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(thphy,'TAVE ',0,Nrphys,0,1,1,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
274 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(sphy,'QAVE ',0,Nrphys,0,1,1,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
280 |
STEP_FIZHI_CORR |
do L=1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
362 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
366 |
STEP_FIZHI_CORR |
. sqrt(uphy(i,j,Nrphys+1-L,bi,bj)*uphy(i,j,Nrphys+1-L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
367 |
STEP_FIZHI_CORR |
. + vphy(i,j,Nrphys+1-L,bi,bj)*vphy(i,j,Nrphys+1-L,bi,bj)) |
|
./pkg/fizhi/step_fizhi_corr.F |
373 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
376 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
379 |
STEP_FIZHI_CORR |
uphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
384 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
385 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
388 |
STEP_FIZHI_CORR |
vphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
393 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
409 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(uphytemp,'CORRDU ',0,Nrphys,0,1,1,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
412 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(vphytemp,'CORRDV ',0,Nrphys,0,1,1,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
437 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
43 |
STEP_FIZHI_CORR |
_RL pephy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
440 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
443 |
STEP_FIZHI_CORR |
thphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
448 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
45 |
STEP_FIZHI_CORR |
_RL windphy(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nrphys,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
461 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(thphytemp,'CORRDT ',0,Nrphys,0,1,1,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
484 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
487 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
490 |
STEP_FIZHI_CORR |
sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
495 |
STEP_FIZHI_CORR |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_corr.F |
507 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(sphytemp,'CORRDQ ',0,Nrphys,0,1,1,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
50 |
STEP_FIZHI_CORR |
_RL uphytemp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nrphys,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
51 |
STEP_FIZHI_CORR |
_RL vphytemp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nrphys,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
52 |
STEP_FIZHI_CORR |
_RL thphytemp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nrphys,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
53 |
STEP_FIZHI_CORR |
_RL sphytemp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nrphys,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
54 |
STEP_FIZHI_CORR |
_RL tempphy(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nrphys,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_fg.F |
49 |
STEP_FIZHI_FG |
. Nrphys,Nsx,Nsy,1,sNx,1,sNy,bi,bj,duphy,dvphy,dthphy,dsphy) |
|
./pkg/fizhi/step_fizhi_fg.F |
53 |
STEP_FIZHI_FG |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_fg.F |
61 |
STEP_FIZHI_FG |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_fg.F |
69 |
STEP_FIZHI_FG |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_fg.F |
77 |
STEP_FIZHI_FG |
do L = 1,Nrphys |
|
./pkg/fizhi/step_fizhi_fg.F |
87 |
STEP_FIZHI_FG |
call QCHECK (idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2, |
|
./pkg/fizhi/step_fizhi_fg.F |
92 |
STEP_FIZHI_FG |
do L = 1,Nrphys |
|
./pkg/fizhi/step_physics.F |
14 |
STEP_PHYSICS |
integer Nrphys,Nsx,Nsy,bi,bj |
|
./pkg/fizhi/step_physics.F |
15 |
STEP_PHYSICS |
_RL uphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/step_physics.F |
16 |
STEP_PHYSICS |
_RL vphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/step_physics.F |
17 |
STEP_PHYSICS |
_RL thphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/step_physics.F |
18 |
STEP_PHYSICS |
_RL sphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/step_physics.F |
19 |
STEP_PHYSICS |
_RL duphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/step_physics.F |
20 |
STEP_PHYSICS |
_RL dvphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/step_physics.F |
21 |
STEP_PHYSICS |
_RL dthphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/step_physics.F |
22 |
STEP_PHYSICS |
_RL dsphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/step_physics.F |
27 |
STEP_PHYSICS |
do L = 1,Nrphys |
|
./pkg/fizhi/step_physics.F |
6 |
STEP_PHYSICS |
. idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/update_chemistry_exports.F |
30 |
UPDATE_CHEMISTRY_EXPORTS |
_RL pephy(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/update_chemistry_exports.F |
31 |
UPDATE_CHEMISTRY_EXPORTS |
_RL pphy(sNx,sNy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/update_chemistry_exports.F |
33 |
UPDATE_CHEMISTRY_EXPORTS |
_RL waterin(sNx,sNy,Nrphys), xlat(sNx,sNy) |
|
./pkg/fizhi/update_chemistry_exports.F |
56 |
UPDATE_CHEMISTRY_EXPORTS |
pephy(i,j,Nrphys+1,bi,bj)=(Ro_surf(i,j,bi,bj)+etaH(i,j,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
57 |
UPDATE_CHEMISTRY_EXPORTS |
do L = 2,Nrphys+1 |
|
./pkg/fizhi/update_chemistry_exports.F |
58 |
UPDATE_CHEMISTRY_EXPORTS |
LL = Nrphys+2-L |
|
./pkg/fizhi/update_chemistry_exports.F |
65 |
UPDATE_CHEMISTRY_EXPORTS |
do L = 1,Nrphys |
|
./pkg/fizhi/update_chemistry_exports.F |
75 |
UPDATE_CHEMISTRY_EXPORTS |
do L = 1,Nrphys |
|
./pkg/fizhi/update_chemistry_exports.F |
99 |
UPDATE_CHEMISTRY_EXPORTS |
. im2,jm2,Nrphys,nSx,nSy,bi,bj,o3,qstr) |
|
./pkg/gridalt/gridalt_initialise.F |
48 |
GRIDALT_INITIALISE |
. 1,sNx,1,sNy,bi,bj,Nrphys,ksurfC,dpphys0,nlph,nlperdyn) |
|
./pkg/gridalt/gridalt_initialise.F |
52 |
GRIDALT_INITIALISE |
print *,' Physics dimension in fizhi_size is ',Nrphys, |
|
./pkg/gridalt/gridalt_mapping.h |
8 |
NO PROCEDURE |
_RL dpphys0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/gridalt/gridalt_mapping.h |
9 |
NO PROCEDURE |
_RL dpphys(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/gridalt/gridalt_update.F |
34 |
GRIDALT_UPDATE |
_RL temparr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/gridalt/gridalt_update.F |
52 |
GRIDALT_UPDATE |
do L = 1,Nrphys |
|
./pkg/gridalt/gridalt_update.F |
73 |
GRIDALT_UPDATE |
do L = 1,Nrphys |
|
./pkg/gridalt/gridalt_update.F |
82 |
GRIDALT_UPDATE |
CALL DIAGNOSTICS_FILL(temparr,'DPPHYS ',-1,Nrphys,0,1,1,myThid) |
|
./pkg/gridalt/make_phys_grid.F |
47 |
MAKE_PHYS_GRID |
integer im1,im2,jm1,jm2,Nr,nSx,nSy,Nrphys |
|
./pkg/gridalt/make_phys_grid.F |
51 |
MAKE_PHYS_GRID |
_RL dpphys(im1:im2,jm1:jm2,Nrphys,nSx,nSy) |
|
./pkg/gridalt/make_phys_grid.F |
7 |
MAKE_PHYS_GRID |
& nSx,nSy,i1,i2,j1,j2,bi,bj,Nrphys,Lbot,dpphys,numlevphys,nlperdyn) |
|
./verification/fizhi-cs-32x32x40/code/fizhi_SIZE.h |
6 |
NO PROCEDURE |
integer Nrphys |
|
./verification/fizhi-cs-32x32x40/code/fizhi_SIZE.h |
7 |
NO PROCEDURE |
parameter (Nrphys = 45) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_SIZE.h |
6 |
NO PROCEDURE |
integer Nrphys |
|
./verification/fizhi-cs-aqualev20/code/fizhi_SIZE.h |
7 |
NO PROCEDURE |
parameter (Nrphys = 30) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
107 |
FIZHI_INIT_FIXED |
do L = 2,Nrphys+1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
112 |
FIZHI_INIT_FIXED |
do L = 1,Nrphys |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
113 |
FIZHI_INIT_FIXED |
pressure(L)=(pressure0(Nrphys+2-L)+pressure0(Nrphys+1-L))/2. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
119 |
FIZHI_INIT_FIXED |
& Nrphys,pressure,n2o,methane,co2,cfc11,cfc12,cfc22) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
44 |
FIZHI_INIT_FIXED |
_RL pressure0(Nrphys+1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
45 |
FIZHI_INIT_FIXED |
_RL pressure(Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
105 |
DO_FIZHI |
_RL u(sNx,sNy,Nrphys),v(sNx,sNy,Nrphys),t(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
106 |
DO_FIZHI |
_RL q(sNx,sNy,Nrphys,ntracer) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
107 |
DO_FIZHI |
_RL pl(sNx,sNy,Nrphys,nSx,nSy),pkl(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
108 |
DO_FIZHI |
_RL ple(sNx,sNy,Nrphys+1,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
109 |
DO_FIZHI |
_RL pkle(sNx,sNy,Nrphys+1,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
110 |
DO_FIZHI |
_RL dpres(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
111 |
DO_FIZHI |
_RL lwdt(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
112 |
DO_FIZHI |
_RL lwdtclr(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
113 |
DO_FIZHI |
_RL swdt(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
114 |
DO_FIZHI |
_RL swdtclr(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
115 |
DO_FIZHI |
_RL turbu(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
116 |
DO_FIZHI |
_RL turbv(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
117 |
DO_FIZHI |
_RL turbt(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
118 |
DO_FIZHI |
_RL turbq(sNx,sNy,Nrphys,ntracer,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
119 |
DO_FIZHI |
_RL moistu(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
120 |
DO_FIZHI |
_RL moistv(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
121 |
DO_FIZHI |
_RL moistt(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
122 |
DO_FIZHI |
_RL moistq(sNx,sNy,Nrphys,ntracer,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
129 |
DO_FIZHI |
_RL dst4(sNx,sNy,nSx,nSy),dlwdtg(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
130 |
DO_FIZHI |
_RL qq(sNx,sNy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
134 |
DO_FIZHI |
_RL cldtot_lw(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
135 |
DO_FIZHI |
_RL cldras_lw(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
136 |
DO_FIZHI |
_RL cldlsp_lw(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
137 |
DO_FIZHI |
_RL lwlz(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
138 |
DO_FIZHI |
_RL cldtot_sw(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
139 |
DO_FIZHI |
_RL cldras_sw(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
140 |
DO_FIZHI |
_RL cldlsp_sw(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
141 |
DO_FIZHI |
_RL swlz(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
142 |
DO_FIZHI |
_RL qliqavesw(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
143 |
DO_FIZHI |
_RL qliqavelw(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
144 |
DO_FIZHI |
_RL fccavesw(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
145 |
DO_FIZHI |
_RL fccavelw(sNx,sNy,Nrphys) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
170 |
DO_FIZHI |
do L = 1,Nrphys |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
173 |
DO_FIZHI |
recip_P0g= 1. _d 0 / pephy(i,j,Nrphys+1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_SIZE.h |
6 |
NO PROCEDURE |
integer Nrphys |
|
./verification/fizhi-gridalt-hs/code/fizhi_SIZE.h |
7 |
NO PROCEDURE |
parameter (Nrphys = 21) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
107 |
FIZHI_INIT_FIXED |
do L = 2,Nrphys+1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
112 |
FIZHI_INIT_FIXED |
do L = 1,Nrphys |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
113 |
FIZHI_INIT_FIXED |
pressure(L)=(pressure0(Nrphys+2-L)+pressure0(Nrphys+1-L))/2. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
119 |
FIZHI_INIT_FIXED |
& Nrphys,pressure,n2o,methane,co2,cfc11,cfc12,cfc22) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
44 |
FIZHI_INIT_FIXED |
_RL pressure0(Nrphys+1) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
45 |
FIZHI_INIT_FIXED |
_RL pressure(Nrphys) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
110 |
FIZHI_INIT_VARS |
do L = 2,Nrphys+1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
114 |
FIZHI_INIT_VARS |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
115 |
FIZHI_INIT_VARS |
& pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
122 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
143 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
146 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
149 |
FIZHI_INIT_VARS |
uphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
154 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
155 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
158 |
FIZHI_INIT_VARS |
vphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
163 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
164 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
167 |
FIZHI_INIT_VARS |
thphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
173 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
174 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
177 |
FIZHI_INIT_VARS |
sphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
183 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
215 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
252 |
FIZHI_INIT_VARS |
do L = 1,Nrphys |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
41 |
FIZHI_INIT_VARS |
_RL pephy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys+1,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
43 |
FIZHI_INIT_VARS |
_RL windphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
46 |
FIZHI_INIT_VARS |
_RL tempphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
46 |
DIAGNOSTICS_SET_LEVELS |
INTEGER Nrphys |
|
./pkg/diagnostics/diagnostics_set_levels.F |
47 |
DIAGNOSTICS_SET_LEVELS |
PARAMETER (Nrphys=0) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
82 |
DIAGNOSTICS_SET_LEVELS |
nlevs = MAX(Nr,Nrphys) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
204 |
DIAGSTATS_MNC_OUT |
dim(1) = Nr+Nrphys+1 |
|
./pkg/diagnostics/diagstats_mnc_out.F |
31 |
DIAGSTATS_MNC_OUT |
INTEGER Nrphys |
|
./pkg/diagnostics/diagstats_mnc_out.F |
32 |
DIAGSTATS_MNC_OUT |
PARAMETER (Nrphys=0) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
72 |
DIAGSTATS_MNC_OUT |
_RS ztmp(Nr+Nrphys) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
74 |
DIAGSTATS_MNC_OUT |
_RL stmp(Nr+Nrphys+1,nRegions+1) |
|
./pkg/diagnostics/diagstats_others_calc.F |
93 |
DIAGSTATS_LM_CALC |
kl = 1 + Nrphys - k |