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

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

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

revision 1.6 by jmc, Thu Aug 25 21:55:54 2005 UTC revision 1.7 by jmc, Tue Nov 1 01:53:13 2005 UTC
# Line 259  C           Copy the data into a tempora Line 259  C           Copy the data into a tempora
259                stmp(1,j+1) = statGlob(ist,0,j)                stmp(1,j+1) = statGlob(ist,0,j)
260              ENDDO              ENDDO
261                        
262              IF ((fflags(listId)(1:1) .EQ. ' ')  C-jmc: fflags is not for Statistics-Diagnostics, can be unset, and since
263       &           .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN  C-     size of the output file will not be an issue here: Always write real*8
264                  c           IF ((fflags(listId)(1:1) .EQ. ' ')
265                CALL MNC_CW_RL_W('R',diag_mnc_bn,1,1,  c    &           .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN
266       &             tnam, stmp, myThid)  c            
267                  c             CALL MNC_CW_RL_W('R',diag_mnc_bn,1,1,
268              ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN  c    &             tnam, stmp, myThid)
269    c            
270    c           ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN
271                                
272                CALL MNC_CW_RL_W('D',diag_mnc_bn,1,1,                CALL MNC_CW_RL_W('D',diag_mnc_bn,1,1,
273       &             tnam, stmp, myThid)       &             tnam, stmp, myThid)
274                            
275              ENDIF  c           else
276    c             write(0,*) myIter, ndId, listId
277    c             write(0,'(3A)') '>',cdiag(ndId),'<'
278    c             write(0,'(3A)') '>',fflags(listId),'<'
279    c             STOP ' in DIAGSTATS_MNC_OUT'
280    c           ENDIF
281                            
282              CALL MNC_CW_DEL_VNAME(tnam, myThid)              CALL MNC_CW_DEL_VNAME(tnam, myThid)
283                            
# Line 296  C           Copy the data into a tempora Line 303  C           Copy the data into a tempora
303                ENDDO                ENDDO
304              ENDDO              ENDDO
305                        
306              IF ((fflags(listId)(1:1) .EQ. ' ')  C-jmc: Always write real*8 (size of the output file will not be an issue here)
      &           .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN  
               
               CALL MNC_CW_RL_W('R',diag_mnc_bn,1,1,  
      &             tnam, stmp, myThid)  
               
             ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN  
               
307                CALL MNC_CW_RL_W('D',diag_mnc_bn,1,1,                CALL MNC_CW_RL_W('D',diag_mnc_bn,1,1,
308       &             tnam, stmp, myThid)       &             tnam, stmp, myThid)
309                            
             ENDIF  
   
310              CALL MNC_CW_DEL_VNAME(tnam, myThid)              CALL MNC_CW_DEL_VNAME(tnam, myThid)
311                        
312            ENDIF            ENDIF
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22