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

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

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

revision 1.4 by jmc, Mon Feb 7 20:49:09 2005 UTC revision 1.6 by jmc, Thu Mar 17 01:22:43 2005 UTC
# Line 40  C     filename  :: List Output Filename Line 40  C     filename  :: List Output Filename
40        INTEGER     frequency(ldimLoc)        INTEGER     frequency(ldimLoc)
41        _RL         levels(kdimLoc,ldimLoc)        _RL         levels(kdimLoc,ldimLoc)
42        CHARACTER*8 fields(fdimLoc,ldimLoc)        CHARACTER*8 fields(fdimLoc,ldimLoc)
43        CHARACTER*8 filename(ldimLoc)        CHARACTER*80 filename(ldimLoc), blkFilName
44        CHARACTER*8 blk8c        CHARACTER*8 blk8c
45        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
46        INTEGER ku, stdUnit        INTEGER ku, stdUnit
47        INTEGER k,l,n,m        INTEGER k,l,n,m,iL
48        _RL undef, getcon        _RL undef, getcon
49          INTEGER  ILNBLNK
50          EXTERNAL ILNBLNK
51    
52        NAMELIST / diagnostics_list /        NAMELIST / diagnostics_list /
53       &     frequency, levels, fields, filename,       &     frequency, levels, fields, filename,
54       &     diag_mnc       &     diag_mnc,
55         &     diag_pickup_read,     diag_pickup_write,
56         &     diag_pickup_read_mnc, diag_pickup_write_mnc
57    
58  C     Initialize and Read Diagnostics Namelist  C     Initialize and Read Diagnostics Namelist
59        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
60    
61        undef = getcon('UNDEF')        undef = getcon('UNDEF')
62        blk8c  = '        '        blk8c  = '        '
63          DO k=1,LEN(blkFilName)
64            blkFilName(k:k) = ' '
65          ENDDO
66    
67        DO l = 1,ldimLoc        DO l = 1,ldimLoc
68          frequency(l) = 0          frequency(l) = 0
69            filename (l) = blkFilName
70          DO k = 1,kdimLoc          DO k = 1,kdimLoc
71            levels (k,l) = undef            levels (k,l) = undef
72          ENDDO          ENDDO
# Line 67  C     Initialize and Read Diagnostics Na Line 75  C     Initialize and Read Diagnostics Na
75          ENDDO          ENDDO
76        ENDDO        ENDDO
77        diag_mnc = useMNC        diag_mnc = useMNC
78          diag_pickup_read      = .FALSE.
79          diag_pickup_write     = .FALSE.
80          diag_pickup_read_mnc  = .FALSE.
81          diag_pickup_write_mnc = .FALSE.
82    
83        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
84       &     ' DIAGNOSTICS_READPARMS: opening data.diagnostics'       &     ' DIAGNOSTICS_READPARMS: opening data.diagnostics'
# Line 83  C     Initialise diag_choices common blo Line 95  C     Initialise diag_choices common blo
95          freq(n) = 0          freq(n) = 0
96          nlevels(n) = 0          nlevels(n) = 0
97          nfields(n) = 0          nfields(n) = 0
98          fnames(n) = blk8c          fnames(n) = blkFilName
99          DO k = 1,numLevels          DO k = 1,numLevels
100            levs(k,n) = 0            levs(k,n) = 0
101          ENDDO          ENDDO
102          DO m = 1,numperlist          DO m = 1,numperlist
103            flds(m,n) = '        '            flds(m,n) = blk8c
104            jdiag(m,n) = 0            jdiag(m,n) = 0
105          ENDDO          ENDDO
106        ENDDO        ENDDO
# Line 96  C     Initialise diag_choices common blo Line 108  C     Initialise diag_choices common blo
108  C     Fill Diagnostics Common Block with Namelist Info  C     Fill Diagnostics Common Block with Namelist Info
109        diag_mnc = diag_mnc .AND. useMNC        diag_mnc = diag_mnc .AND. useMNC
110        diag_mdsio = (.NOT. diag_mnc) .OR. outputTypesInclusive        diag_mdsio = (.NOT. diag_mnc) .OR. outputTypesInclusive
111          diag_pickup_read_mnc  = diag_pickup_read_mnc .AND. diag_mnc
112          diag_pickup_write_mnc = diag_pickup_write_mnc .AND. diag_mnc
113          diag_pickup_read_mdsio  =
114         &     diag_pickup_read .AND. (.NOT. diag_pickup_read_mnc)
115          diag_pickup_write_mdsio = diag_pickup_write .AND.
116         &     ((.NOT. diag_pickup_write_mnc) .OR. outputTypesInclusive)
117    
118        DO l = 1,ldimLoc        DO l = 1,ldimLoc
119           iL = ILNBLNK(filename(l))
120           IF ( frequency(l).NE.0 .AND. iL.EQ.0 ) THEN
121             WRITE(msgBuf,'(2A,I3,A,I6)') 'DIAGNOSTICS_READPARMS: ',
122         &    'Empty File-name ! (list l=', l, ' ), freq:',frequency(l)
123             CALL PRINT_ERROR( msgBuf , myThid )
124             STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS'
125           ENDIF
126         IF ( frequency(l).NE.0 .AND. nlists.LT.numlists ) THEN         IF ( frequency(l).NE.0 .AND. nlists.LT.numlists ) THEN
127           n = nlists + 1           n = nlists + 1
128           freq(n)    = frequency(l)           freq(n)    = frequency(l)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22