File indexing completed on 2018-03-02 18:42:00 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
fdfd067cbb Ed H*0001 #include "MNC_OPTIONS.h"
0002
0003
0004
0005
0006
0007
0008 SUBROUTINE MNC_DUMP( myThid )
0009
0010
0011
0012
0013
0014
0015 INTEGER myThid
0016
0017 CALL MNC_DUMP_ALL(5, 20, myThid)
0018 RETURN
0019 END
0020
0021
0022
0023
0024
0025
0026 SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )
0027
0028
0029
0030
0031
0032
07155994b8 Mart*0033 #include "MNC_COMMON.h"
fdfd067cbb Ed H*0034
0035
0036 integer n_id, n_items, myThid
0037
0038
0039
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