/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_fill_state.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_fill_state.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22