| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
208 |
DO_FIZHI |
t(i,j,L) = thphy(i,j,L,bi,bj)/p0kappa |
|
./pkg/fizhi/do_fizhi.F |
40 |
DO_FIZHI |
_RL thphy(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_coms.h |
14 |
NO PROCEDURE |
_RL thphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
9 |
NO PROCEDURE |
COMMON /physics_state/ uphy,vphy,thphy,sphy, |
|
./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_read_pickup.F |
106 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'thphy',thphy,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_step_diag.F |
17 |
FIZHI_STEP_DIAG |
_RL thphy(im2,jm2,Nrphys) |
|
./pkg/fizhi/fizhi_step_diag.F |
297 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = thphy(i,j,L)*pk(i,j,L,bi,bj) |
|
./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/fizhi_wrapper.F |
118 |
FIZHI_WRAPPER |
thbef(i,j,L,bi,bj) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
246 |
FIZHI_WRAPPER |
tempLdiag2(i,j,L) = thphy(i,j,L,bi,bj) * |
|
./pkg/fizhi/fizhi_wrapper.F |
265 |
FIZHI_WRAPPER |
& uphy,vphy,thphy,sphy,pephy4fiz,xC,yC,topoZ, |
|
./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_state.F |
64 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, thphy, 1, myIter,myThid ) |
|
./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 |
260 |
STEP_FIZHI_CORR |
call STEP_PHYSICS(uphy,vphy,thphy,sphy,dtfake,im1,im2,jm1,jm2, |
|
./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 |
311 |
STEP_FIZHI_CORR |
tempij(i,j) = (thphy (i,j,L,bi,bj)-thbef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
452 |
STEP_FIZHI_CORR |
. ( (thphy(i,j,L,bi,bj)-thbef(i,j,L,bi,bj))*dtinv |
|
./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 |
72 |
STEP_FIZHI_FG |
tempij(i,j) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_physics.F |
17 |
STEP_PHYSICS |
_RL thphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/step_physics.F |
32 |
STEP_PHYSICS |
thphy(i,j,L,bi,bj)=thphy(i,j,L,bi,bj) + dthphy(i,j,L,bi,bj)* dt |
|
./pkg/fizhi/step_physics.F |
5 |
STEP_PHYSICS |
subroutine STEP_PHYSICS(uphy,vphy,thphy,sphy,dt, |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
195 |
DO_FIZHI |
dthphy(i,j,L,bi,bj)=- kT*( thphy(I,J,L,bi,bj)-thetaEq ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
40 |
DO_FIZHI |
_RL thphy(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, |
|
./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) |