pkg/mnc/mnc_dump.F

fdfd067cbb Ed H*0001 #include "MNC_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C     !ROUTINE: MNC_DUMP
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE MNC_DUMP( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Create a short (usually incomplete) summary of the current state
                0012 C     of the MNC lookup tables.  This can be helpful for debugging MNC.
                0013
                0014 C     !INPUT PARAMETERS:
                0015       INTEGER myThid
                0016 CEOP
                0017       CALL MNC_DUMP_ALL(5, 20, myThid)
                0018       RETURN
                0019       END
                0020
                0021 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0022 CBOP 1
                0023 C     !ROUTINE: MNC_DUMP_ALL
                0024
                0025 C     !INTERFACE:
                0026       SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )
                0027
                0028 C     !DESCRIPTION:
                0029 C     Create a summary of a specified portion of the current state of
                0030 C     the MNC lookup tables.  This can be helpful for debugging MNC.
                0031
                0032 C     !USES:
07155994b8 Mart*0033 #include "MNC_COMMON.h"
fdfd067cbb Ed H*0034
                0035 C     !INPUT PARAMETERS:
                0036       integer n_id, n_items, myThid
                0037 CEOP
                0038
                0039 C     !LOCAL VARIABLES:
                0040       integer i,j
                0041
                0042       write(*,*) 'mnc_f_names :'
                0043       DO i = 1,n_id
ef92f00980 Ed H*0044         write(*,'(i3,a,a40)') i,':', mnc_f_names(i)(1:40)
fdfd067cbb Ed H*0045       ENDDO
                0046       write(*,*) 'mnc_g_names :'
                0047       DO i = 1,n_id
ef92f00980 Ed H*0048         write(*,'(i3,a,a40)') i,':', mnc_g_names(i)(1:40)
fdfd067cbb Ed H*0049       ENDDO
                0050       write(*,*) 'mnc_v_names :'
                0051       DO i = 1,n_id
ef92f00980 Ed H*0052         write(*,'(i3,a,a40)') i,':', mnc_v_names(i)(1:40)
fdfd067cbb Ed H*0053       ENDDO
                0054       write(*,*) 'mnc_d_names :'
                0055       DO i = 1,n_id
ef92f00980 Ed H*0056         write(*,'(i3,a,a40)') i,':', mnc_d_names(i)(1:40)
fdfd067cbb Ed H*0057       ENDDO
                0058
                0059       write(*,*) 'mnc_d_ids, mnc_d_size :'
                0060       DO i = 1,n_id
                0061         write(*,*) i,': ',mnc_d_ids(i), mnc_d_size(i)
                0062       ENDDO
                0063
                0064       write(*,*) 'mnc_f_info :'
                0065       DO i = 1,n_id
                0066         write(*,*) i,': ',(mnc_f_info(i,j), j=1,n_items)
                0067       ENDDO
                0068       write(*,*) 'mnc_fd_ind :'
                0069       DO i = 1,n_id
                0070         write(*,*) i,': ',(mnc_fd_ind(i,j), j=1,n_items)
                0071       ENDDO
                0072       write(*,*) 'mnc_fv_ids :'
                0073       DO i = 1,n_id
                0074         write(*,*) i,': ',(mnc_fv_ids(i,j), j=1,n_items)
                0075       ENDDO
                0076       write(*,*) 'mnc_f_alld :'
                0077       DO i = 1,n_id
                0078         write(*,*) i,': ',(mnc_f_alld(i,j), j=1,n_items)
                0079       ENDDO
                0080
                0081       RETURN
                0082       END
                0083
                0084 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|