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

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

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

revision 1.11 by jmc, Sat Jul 9 17:19:48 2005 UTC revision 1.12 by jmc, Sun Jul 30 01:19:18 2006 UTC
# Line 50  C       \end{tabular} Line 50  C       \end{tabular}
50  C     \end{center}  C     \end{center}
51    
52  C     !USES:  C     !USES:
53        implicit none        IMPLICIT NONE
54  #include "SIZE.h"  #include "SIZE.h"
55  #include "EEPARAMS.h"  #include "EEPARAMS.h"
56  #include "PARAMS.h"  #include "PARAMS.h"
# Line 58  C     !USES: Line 58  C     !USES:
58  #include "DIAGNOSTICS.h"  #include "DIAGNOSTICS.h"
59    
60  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
61        integer myThid        INTEGER myThid
62  CEOP  CEOP
63    
64        integer n  C     !LOCAL VARIABLES:
65          INTEGER n
66    
67        do n=1,ndiagMax  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
68    
69          _BEGIN_MASTER( myThid )
70    
71          DO n=1,ndiagMax
72          kdiag(n) = 0          kdiag(n) = 0
73          cdiag(n) = '        '          cdiag(n) = '        '
74          gdiag(n) = '                '          gdiag(n) = '                '
75          udiag(n) = '                '          udiag(n) = '                '
76          tdiag(n) = ' '          tdiag(n) = ' '
77        enddo        ENDDO
78    
79  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
80  C     For each output variable,  C     For each output variable,
# Line 186  C--------------------------------------- Line 191  C---------------------------------------
191        udiag(22) = 'count           '        udiag(22) = 'count           '
192        gdiag(22) = 'SM  D   L1      '        gdiag(22) = 'SM  D   L1      '
193    
194  c-    set the total number of available diagnostics  C-    set the total number of available diagnostics
195        ndiagt = 22        ndiagt = 22
196    
197  c---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
198    
199          _END_MASTER( myThid )
200          _BARRIER
201    
202        RETURN        RETURN
203        END        END
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22