Symbol | Description | Uses |
crif2 | 9 |
File | Line number | Procedure | Code |
./pkg/fizhi/fizhi_gwdrag.F | 371 | GWDD |
_RL richsn,crifro,crif2,fro2,coef |
./pkg/fizhi/fizhi_gwdrag.F | 529 | GWDD |
crif2 = crifro*crifro |
./pkg/fizhi/fizhi_gwdrag.F | 530 | GWDD |
if( l.eq.2 ) crif2 = min(0.7 _d 0,crif2) |
./pkg/fizhi/fizhi_gwdrag.F | 532 | GWDD |
if( fro2.gt.crif2 ) then |
./pkg/fizhi/fizhi_gwdrag.F | 533 | GWDD |
tensio(i,L) = crif2/fro2*tensio(i,L-1) |
./pkg/fizhi/fizhi_gwdrag.F | 618 | GWDD |
crif2 = crifro*crifro |
./pkg/fizhi/fizhi_gwdrag.F | 620 | GWDD |
if( fro2.ge.crif2 ) then |
./pkg/fizhi/fizhi_gwdrag.F | 621 | GWDD |
tensio(i,L) = crif2/fro2*tensio(i,L-1) |