| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2493 |
RNEVP |
if( tl(i,L).gt.tice-20.) then |
|
./pkg/fizhi/fizhi_moist.F |
2548 |
RNEVP |
call QSAT( tl(i,L),pl(i,L),rh,dum,.false.) |
|
./pkg/fizhi/fizhi_swrad.F |
547 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./pkg/fizhi/fizhi_swrad.F |
581 |
OPTHK |
_RL tl(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
598 |
OPTHK |
alf = min( max(( tl(i,j,L)-233.15)/20.,0. _d 0), 1. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
644 |
OPTHK |
if( tl(i,j,L).gt.210.0 ) then |
|
./pkg/fizhi/fizhi_turb.F |
1718 |
TRBFLX |
call QSAT ( tl(i,nlev),pl(i,nlev),shsat(i,nlev),dum,.false. ) |
|
./pkg/fizhi/fizhi_turb.F |
1820 |
TRBFLX |
call QSAT ( tl(i,LL),pl(i,LL),shsat(i,LL),dum,.false. ) |