| File |
Line number |
Procedure |
Code |
|
./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/fizhi_SIZE.h |
6 |
NO PROCEDURE |
integer Nrphys |
|
./pkg/fizhi/fizhi_SIZE.h |
7 |
NO PROCEDURE |
parameter (Nrphys = 20) |
|
./pkg/fizhi/fizhi_wrapper.F |
116 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
124 |
FIZHI_WRAPPER |
. Nrphys,0,1,1,myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
138 |
FIZHI_WRAPPER |
. idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/fizhi_wrapper.F |
164 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
165 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=duphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
169 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
|
./pkg/fizhi/fizhi_wrapper.F |
173 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
174 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dvphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
178 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
|
./pkg/fizhi/fizhi_wrapper.F |
182 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
183 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dthphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
187 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
|
./pkg/fizhi/fizhi_wrapper.F |
191 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
192 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dsphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
196 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
|
./pkg/fizhi/fizhi_wrapper.F |
40 |
FIZHI_WRAPPER |
_RL pephy4fiz(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
41 |
FIZHI_WRAPPER |
_RL pephy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
43 |
FIZHI_WRAPPER |
_RL tempphy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
68 |
FIZHI_WRAPPER |
do L = 2,Nrphys+1 |
|
./pkg/fizhi/fizhi_wrapper.F |
72 |
FIZHI_WRAPPER |
do L = 1,Nrphys+1 |
|
./pkg/fizhi/fizhi_wrapper.F |
73 |
FIZHI_WRAPPER |
pephy4fiz(i,j,Nrphys+2-L,bi,bj)=pephy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
75 |
FIZHI_WRAPPER |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
76 |
FIZHI_WRAPPER |
. pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/do_fizhi.F |
104 |
DO_FIZHI |
_RL u(sNx,sNy,Nrphys),v(sNx,sNy,Nrphys),t(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
105 |
DO_FIZHI |
_RL q(sNx,sNy,Nrphys,ntracer) |
|
./pkg/fizhi/do_fizhi.F |
106 |
DO_FIZHI |
_RL pl(sNx,sNy,Nrphys,Nsx,Nsy),pkl(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
107 |
DO_FIZHI |
_RL ple(sNx,sNy,Nrphys+1,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
108 |
DO_FIZHI |
_RL pkle(sNx,sNy,Nrphys+1,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
109 |
DO_FIZHI |
_RL dpres(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
110 |
DO_FIZHI |
_RL lwdt(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
111 |
DO_FIZHI |
_RL lwdtclr(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
112 |
DO_FIZHI |
_RL swdt(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
113 |
DO_FIZHI |
_RL swdtclr(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
114 |
DO_FIZHI |
_RL turbu(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
115 |
DO_FIZHI |
_RL turbv(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
116 |
DO_FIZHI |
_RL turbt(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
117 |
DO_FIZHI |
_RL turbq(sNx,sNy,Nrphys,ntracer,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
118 |
DO_FIZHI |
_RL moistu(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
119 |
DO_FIZHI |
_RL moistv(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
120 |
DO_FIZHI |
_RL moistt(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
121 |
DO_FIZHI |
_RL moistq(sNx,sNy,Nrphys,ntracer,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
128 |
DO_FIZHI |
_RL dst4(sNx,sNy,Nsx,Nsy),dlwdtg(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
129 |
DO_FIZHI |
_RL qq(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
133 |
DO_FIZHI |
_RL cldtot_lw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
134 |
DO_FIZHI |
_RL cldras_lw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
135 |
DO_FIZHI |
_RL cldlsp_lw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
136 |
DO_FIZHI |
_RL lwlz(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
137 |
DO_FIZHI |
_RL cldtot_sw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
138 |
DO_FIZHI |
_RL cldras_sw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
139 |
DO_FIZHI |
_RL cldlsp_sw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
140 |
DO_FIZHI |
_RL swlz(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
141 |
DO_FIZHI |
_RL qliqavesw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
142 |
DO_FIZHI |
_RL qliqavelw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
143 |
DO_FIZHI |
_RL fccavesw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
144 |
DO_FIZHI |
_RL fccavelw(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
189 |
DO_FIZHI |
ple(i,j,Nrphys+1,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
190 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./pkg/fizhi/do_fizhi.F |
191 |
DO_FIZHI |
p(i,j,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
198 |
DO_FIZHI |
do L = 1,Nrphys |
|
./pkg/fizhi/do_fizhi.F |
229 |
DO_FIZHI |
call PKAPPA (im2,jm2,Nrphys,ple(1,1,1,bi,bj),pkle(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
232 |
DO_FIZHI |
call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer,xlats, |
|
./pkg/fizhi/do_fizhi.F |
262 |
DO_FIZHI |
do L = 1,Nrphys |
|
./pkg/fizhi/do_fizhi.F |
291 |
DO_FIZHI |
do L = 1,Nrphys |
|
./pkg/fizhi/do_fizhi.F |
310 |
DO_FIZHI |
. im1,im2,jm1,jm2,Nrphys,Nsx,Nsy,bi,bj,ntracer) |
|
./pkg/fizhi/fizhi_write_state.F |
64 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,uphy,1,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_state.F |
67 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,vphy,1,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_state.F |
70 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_state.F |
73 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,sphy,1,myIter,myThid) |