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

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

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

revision 1.4 by molod, Fri Feb 18 19:44:11 2005 UTC revision 1.5 by molod, Wed Feb 23 16:01:54 2005 UTC
# Line 81  C we are trying to fill a valid diagnost Line 81  C we are trying to fill a valid diagnost
81         ENDDO         ENDDO
82        ENDDO        ENDDO
83    
       print *,' in diag_vegtile_fill for ',chardiag,  
      .     ' ndiagnum ',ndiagnum,' ipointer ',ipointer  
   
84  C If-sequence to see if we are a valid and an active diagnostic  C If-sequence to see if we are a valid and an active diagnostic
85    
86        IF ( ndiagnum.NE.0 .AND. ipointer.NE.0 ) THEN        IF ( ndiagnum.NE.0 .AND. ipointer.NE.0 ) THEN
# Line 148  C-      Check for consistency with Nb of Line 145  C-      Check for consistency with Nb of
145    
146         DO k = kFirst,kLast         DO k = kFirst,kLast
147          kd = kd0 + ksgn*k          kd = kd0 + ksgn*k
         print *,' level slot in qdiag= ',kd, ' level from input= ',k  
148          if( check ) then          if( check ) then
149           undef = getcon('UNDEF')           undef = getcon('UNDEF')
150           do i= 1,Lena           do i= 1,Lena
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22