subroutine calfis |
( |
logical, intent(in) |
lafin, |
|
|
real, intent(in) |
jD_cur, |
|
|
real, intent(in) |
jH_cur, |
|
|
real, dimension(iip1,jjp1,llm), intent(in) |
pucov, |
|
|
real, dimension(iip1,jjm,llm), intent(in) |
pvcov, |
|
|
real, dimension(iip1,jjp1,llm), intent(in) |
pteta, |
|
|
real, dimension(iip1,jjp1,llm,nqtot), intent(in) |
pq, |
|
|
real, dimension(iip1,jjp1,llm), intent(in) |
pmasse, |
|
|
real, dimension(iip1,jjp1), intent(in) |
pps, |
|
|
real, dimension(iip1,jjp1,llmp1), intent(in) |
pp, |
|
|
real, dimension(iip1,jjp1,llm), intent(in) |
ppk, |
|
|
real, dimension(iip1,jjp1), intent(in) |
pphis, |
|
|
real, dimension(iip1,jjp1,llm), intent(in) |
pphi, |
|
|
real, dimension(iip1,jjp1,llm), intent(in) |
pducov, |
|
|
real, dimension(iip1,jjm,llm), intent(in) |
pdvcov, |
|
|
real, dimension(iip1,jjp1,llm), intent(in) |
pdteta, |
|
|
real, dimension(iip1,jjp1,llm,nqtot), intent(in) |
pdq, |
|
|
real, dimension(iip1,jjp1,llm), intent(in) |
flxw, |
|
|
real, dimension(iip1,jjp1,llm), intent(out) |
pdufi, |
|
|
real, dimension(iip1,jjm,llm), intent(out) |
pdvfi, |
|
|
real, dimension(iip1,jjp1,llm), intent(out) |
pdhfi, |
|
|
real, dimension(iip1,jjp1,llm,nqtot), intent(out) |
pdqfi, |
|
|
real, dimension(iip1,jjp1), intent(out) |
pdpsfi |
|
) |
| |