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