/[MITgcm]/MITgcm/pkg/mnc/mnc_init.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_init.F

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

revision 1.17 by edhill, Tue Nov 2 18:06:36 2004 UTC revision 1.18 by edhill, Wed Dec 8 15:50:46 2004 UTC
# Line 79  C     Blank the CW tables Line 79  C     Blank the CW tables
79        END        END
80    
81  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
 CBOP 0  
 C     !ROUTINE: MNC_DUMP  
   
 C     !INTERFACE:  
       SUBROUTINE MNC_DUMP( myThid )  
   
 C     !DESCRIPTION:  
 C     Create a short (usually incomplete) summary of the current state  
 C     of the MNC lookup tables.  This can be helpful for debugging MNC.  
         
 C     !INPUT PARAMETERS:  
       INTEGER myThid  
 CEOP  
       CALL MNC_DUMP_ALL(5, 20, myThid)  
       RETURN  
       END  
   
 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  
 CBOP 1  
 C     !ROUTINE: MNC_DUMP_ALL  
   
 C     !INTERFACE:  
       SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )  
   
 C     !DESCRIPTION:  
 C     Create a summary of a specified portion of the current state of  
 C     the MNC lookup tables.  This can be helpful for debugging MNC.  
   
 C     !USES:  
 #include "mnc_common.h"  
   
 C     !INPUT PARAMETERS:  
       integer n_id, n_items, myThid  
 CEOP  
   
 C     !LOCAL VARIABLES:  
       integer i,j  
   
       write(*,*) 'mnc_f_names :'  
       DO i = 1,n_id  
         write(*,'(i3,a,a40)') i,':', mnc_f_names(i)  
       ENDDO  
       write(*,*) 'mnc_g_names :'  
       DO i = 1,n_id  
         write(*,'(i3,a,a40)') i,':', mnc_g_names(i)  
       ENDDO  
       write(*,*) 'mnc_v_names :'  
       DO i = 1,n_id  
         write(*,'(i3,a,a40)') i,':', mnc_v_names(i)  
       ENDDO  
       write(*,*) 'mnc_d_names :'  
       DO i = 1,n_id  
         write(*,'(i3,a,a40)') i,':', mnc_d_names(i)  
       ENDDO  
   
       write(*,*) 'mnc_d_ids, mnc_d_size :'  
       DO i = 1,n_id  
         write(*,*) i,': ',mnc_d_ids(i), mnc_d_size(i)  
       ENDDO  
   
       write(*,*) 'mnc_f_info :'  
       DO i = 1,n_id  
         write(*,*) i,': ',(mnc_f_info(i,j), j=1,n_items)  
       ENDDO  
       write(*,*) 'mnc_fd_ind :'  
       DO i = 1,n_id  
         write(*,*) i,': ',(mnc_fd_ind(i,j), j=1,n_items)  
       ENDDO  
       write(*,*) 'mnc_fv_ids :'  
       DO i = 1,n_id  
         write(*,*) i,': ',(mnc_fv_ids(i,j), j=1,n_items)  
       ENDDO  
       write(*,*) 'mnc_f_alld :'  
       DO i = 1,n_id  
         write(*,*) i,': ',(mnc_f_alld(i,j), j=1,n_items)  
       ENDDO  
   
       RETURN  
       END  
   
 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22