| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
205 |
DO_FIZHI |
q(i,j,L,1) = sphy(i,j,L,bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
307 |
DO_FIZHI |
call FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pkl,dpres, |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
40 |
DO_FIZHI |
_RL sphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
7 |
DO_FIZHI |
. uphy,vphy,thphy,sphy,pephy,lons,lats,Zsurf, |
|
./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/do_fizhi.F |
40 |
DO_FIZHI |
_RL sphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
7 |
DO_FIZHI |
. uphy,vphy,thphy,sphy,pephy,lons,lats,Zsurf, |
|
./pkg/fizhi/fizhi_step_diag.F |
18 |
FIZHI_STEP_DIAG |
_RL sphy(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
321 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = sphy(i,j,L,bi,bj) * 1000. |
|
./pkg/fizhi/fizhi_step_diag.F |
5 |
FIZHI_STEP_DIAG |
subroutine FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pk,dp, |
|
./pkg/fizhi/step_fizhi_fg.F |
47 |
STEP_FIZHI_FG |
call STEP_PHYSICS(uphy,vphy,thphy,sphy,dt,idim1,idim2, |
|
./pkg/fizhi/step_fizhi_fg.F |
80 |
STEP_FIZHI_FG |
tempij(i,j) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
88 |
STEP_FIZHI_FG |
. jm1,jm2,bi,bj,dpphys,sphy) |
|
./pkg/fizhi/step_fizhi_fg.F |
95 |
STEP_FIZHI_FG |
tempij(i,j) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_coms.h |
10 |
NO PROCEDURE |
common /physics_state/ uphy,vphy,thphy,sphy, |
|
./pkg/fizhi/fizhi_coms.h |
16 |
NO PROCEDURE |
_RL sphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_read_pickup.F |
108 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sphy',sphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
109 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sphy',sphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
60 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,sphy,4,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
157 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
248 |
STEP_FIZHI_CORR |
call STEP_PHYSICS(uphy,vphy,thphy,sphy,dt,im1,im2,jm1,jm2, |
|
./pkg/fizhi/step_fizhi_corr.F |
281 |
STEP_FIZHI_CORR |
tempij(i,j) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
289 |
STEP_FIZHI_CORR |
. jdim1,jdim2,bi,bj,dpphys,sphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
296 |
STEP_FIZHI_CORR |
tempij(i,j) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/update_chemistry_exports.F |
76 |
UPDATE_CHEMISTRY_EXPORTS |
waterin(i,j,L) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
177 |
FIZHI_INIT_VARS |
sphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
76 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,sphy,4,myIter,myThid) |
|
./pkg/fizhi/step_physics.F |
18 |
STEP_PHYSICS |
_RL sphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/step_physics.F |
33 |
STEP_PHYSICS |
sphy(i,j,L,bi,bj) = sphy(i,j,L,bi,bj) + dsphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/step_physics.F |
5 |
STEP_PHYSICS |
subroutine STEP_PHYSICS(uphy,vphy,thphy,sphy,dt, |
|
./pkg/fizhi/fizhi_wrapper.F |
140 |
FIZHI_WRAPPER |
. uphy,vphy,thphy,sphy,pephy4fiz,xC,yC,topoZ, |
|
./pkg/fizhi/do_fizhi.F |
204 |
DO_FIZHI |
q(i,j,L,1) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
306 |
DO_FIZHI |
call FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pkl,dpres, |
|
./pkg/fizhi/do_fizhi.F |
40 |
DO_FIZHI |
_RL sphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
7 |
DO_FIZHI |
. uphy,vphy,thphy,sphy,pephy,lons,lats,Zsurf, |
|
./pkg/fizhi/fizhi_write_state.F |
73 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,sphy,1,myIter,myThid) |