File |
Line number |
Procedure |
Code |
./pkg/fizhi/do_fizhi.F |
135 |
DO_FIZHI |
_RL cldras_lw(sNx,sNy,Nrphys) |
./pkg/fizhi/do_fizhi.F |
220 |
DO_FIZHI |
cldras_lw(i,j,L) = cldraslwin(i,j,L,bi,bj) |
./pkg/fizhi/do_fizhi.F |
263 |
DO_FIZHI |
& nlwcld(bi,bj),cldtot_lw,cldras_lw,cldlsp_lw,nlwlz(bi,bj),lwlz, |
./pkg/fizhi/do_fizhi.F |
273 |
DO_FIZHI |
cldraslwin(i,j,L,bi,bj) = cldras_lw(i,j,L) |
./pkg/fizhi/fizhi_coms.h |
41 |
NO PROCEDURE |
COMMON /physics_saver/ cldtot_lw,cldras_lw,cldlsp_lw,lwlz, |
./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_driver.F |
18 |
FIZHI_DRIVER |
& cldtot_lw,cldras_lw,cldlsp_lw,nlwlz,lwlz,nswcld,cldtot_sw, |
./pkg/fizhi/fizhi_driver.F |
192 |
FIZHI_DRIVER |
& nlwcld,cldtot_lw,cldras_lw,nlwlz,lwlz, |
./pkg/fizhi/fizhi_driver.F |
251 |
FIZHI_DRIVER |
& nlwcld,cldtot_lw,cldras_lw,cldlsp_lw,nlwlz,lwlz, |
./pkg/fizhi/fizhi_driver.F |
91 |
FIZHI_DRIVER |
_RL cldtot_lw(im,jm,lm),cldras_lw(im,jm,lm) |
./pkg/fizhi/fizhi_init_vars.F |
273 |
FIZHI_INIT_VARS |
cldras_lw(i,j,L,bi,bj) = 0. |
./pkg/fizhi/fizhi_moist.F |
1052 |
MOISTIO |
cldras = min( max( cldras_lw(i,j,L)*cldras_mem,cpen(i,j,L)), |
./pkg/fizhi/fizhi_moist.F |
1068 |
MOISTIO |
cldras_lw(i,j,L) = (nlwcld*cldras_lw(i,j,L) + cldras)/(nlwcld+1) |
./pkg/fizhi/fizhi_moist.F |
12 |
MOISTIO |
. nlwcld,cldtot_lw,cldras_lw,cldlsp_lw,nlwlz,lwlz, |
./pkg/fizhi/fizhi_moist.F |
38 |
MOISTIO |
_RL cldlsp_lw(im,jm,lm),cldras_lw(im,jm,lm) |
./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_wrapper.F |
271 |
FIZHI_WRAPPER |
& iras,nlwcld,cldtot_lw,cldras_lw,cldlsp_lw,nlwlz,lwlz, |
./pkg/fizhi/fizhi_write_pickup.F |
79 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldras_lw, 6,myIter,myThid) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
135 |
DO_FIZHI |
_RL cldras_lw(sNx,sNy,Nrphys) |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
265 |
FIZHI_INIT_VARS |
cldras_lw(i,j,L,bi,bj) = 0. |