Parent Directory | Revision Log | Revision Graph | Patch
revision 1.26 by jmc, Thu Aug 25 20:51:38 2005 UTC | revision 1.27 by molod, Tue Sep 20 18:30:41 2005 UTC | |
---|---|---|
# | Line 317 C-- fill tracer state-var diagnostics: | Line 317 C-- fill tracer state-var diagnostics: |
317 | call qsat(dummy1,dummy2,dummy3,dummy4,.false.) | call qsat(dummy1,dummy2,dummy3,dummy4,.false.) |
318 | tmpMk(i,j,K,bi,bj) = hfacC(i,j,K,bi,bj) * | tmpMk(i,j,K,bi,bj) = hfacC(i,j,K,bi,bj) * |
319 | . salt(i,j,k,bi,bj) * 100. / dummy3 | . salt(i,j,k,bi,bj) * 100. / dummy3 |
if(k.lt.4) print *,' Temp ',dummy1,' Pres ',dummy2,' q ', | ||
. salt(i,j,k,bi,bj),' qstar ',dummy3,' rh ',tmpMk(i,j,K,bi,bj) | ||
320 | enddo | enddo |
321 | enddo | enddo |
322 | enddo | enddo |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |