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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.9 by edhill, Tue Jul 6 03:55:53 2004 UTC revision 1.11 by molod, Wed Jul 7 15:58:17 2004 UTC
# Line 54  C*************************************** Line 54  C***************************************
54    
55        do j = 1,sNy        do j = 1,sNy
56        do i = 1,sNx        do i = 1,sNx
57         if( qdiag(i,j,ipnt,bi,bj).ne.undef ) then         if( qdiag(i,j,ipnt,bi,bj).ge.undef ) then
58          qtmp(i,j,lev,bi,bj) = qdiag(i,j,ipnt,bi,bj)*factor          qtmp(i,j,lev,bi,bj) = qdiag(i,j,ipnt,bi,bj)*factor
59         else         else
60          qtmp(i,j,lev,bi,bj) = undef          qtmp(i,j,lev,bi,bj) = undef
# Line 117  C*************************************** Line 117  C***************************************
117    
118        do j = 1,sNy        do j = 1,sNy
119        do i = 1,sNx        do i = 1,sNx
120         if( qdiag(i,j,ipnt,bi,bj).ne.undef ) then         if( qdiag(i,j,ipnt,bi,bj).ge.undef ) then
121          qtmp(i,j,lev,bi,bj) = qdiag(i,j,ipnt,bi,bj)          qtmp(i,j,lev,bi,bj) = qdiag(i,j,ipnt,bi,bj)
122         else         else
123          qtmp(i,j,lev,bi,bj) = undef          qtmp(i,j,lev,bi,bj) = undef
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22