25 |
real massebx(iip1,jjp1,llm),masseby(iip1,jjm,llm) |
real massebx(iip1,jjp1,llm),masseby(iip1,jjm,llm) |
26 |
real w(iip1,jjp1,llm+1) |
real w(iip1,jjp1,llm+1) |
27 |
real fluxwppm(iim,jjp1,llm) |
real fluxwppm(iim,jjp1,llm) |
28 |
real pbaru(iip1,jjp1,llm ) |
real, intent(in):: pbaru(iip1,jjp1,llm ) |
29 |
real pbarv(iip1,jjm,llm) |
real, intent(in):: pbarv(iip1,jjm,llm) |
30 |
real unatppm(iim,jjp1,llm) |
real unatppm(iim,jjp1,llm) |
31 |
real vnatppm(iim,jjp1,llm) |
real vnatppm(iim,jjp1,llm) |
32 |
real psppm(iim,jjp1) |
real psppm(iim,jjp1) |