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

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

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

revision 1.1 by jmc, Mon Dec 13 21:43:54 2004 UTC revision 1.2 by edhill, Sun Feb 20 04:31:54 2005 UTC
# Line 8  CBOP 0 Line 8  CBOP 0
8  C     !ROUTINE: DIAGNOSTICS_INIT_VARIA  C     !ROUTINE: DIAGNOSTICS_INIT_VARIA
9    
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE DIAGNOSTICS_INIT_VARIA(myThid)        SUBROUTINE DIAGNOSTICS_INIT_VARIA(
12         I     myThid )
13    
14  C     !DESCRIPTION:  C     !DESCRIPTION:
15  C     Initialize the qdiag array which accumulates during integration  C     Initialize the qdiag array which accumulates during integration
16                
17  C     !USES:  C     !USES:
18        IMPLICIT NONE        IMPLICIT NONE
 #include "EEPARAMS.h"  
19  #include "SIZE.h"  #include "SIZE.h"
20    #include "EEPARAMS.h"
21    #include "PARAMS.h"
22  #include "DIAGNOSTICS_SIZE.h"  #include "DIAGNOSTICS_SIZE.h"
23  #include "DIAGNOSTICS.h"  #include "DIAGNOSTICS.h"
24    
# Line 26  CEOP Line 28  CEOP
28    
29  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
30        INTEGER i,j,n,bi,bj        INTEGER i,j,n,bi,bj
31          CHARACTER*(80) fn
32          LOGICAL glf
33    
34  C     Zero out the qdiag array which accumulates during integration  C     Zero out the qdiag array which accumulates during integration
35        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
# Line 40  C     Zero out the qdiag array which acc Line 44  C     Zero out the qdiag array which acc
44          ENDDO          ENDDO
45        ENDDO        ENDDO
46    
47    
48    C     Add pickup capability
49          IF (diag_pickup_read) THEN
50    
51    #ifdef ALLOW_MNC
52    C       IF (useMNC .AND. diag_pickup_read_mnc) THEN
53    C       ENDIF
54    #endif
55            
56            IF (diag_pickup_read_mdsio) THEN
57              DO i = 1,80
58                fn(i:i) = ' '
59              ENDDO
60              write(fn,'(a)') 'pickup_diagnostics'
61              glf = globalFiles
62              CALL MDSREADFIELD(fn,readBinaryPrec,glf,'RL',
63         &         numdiags,qdiag,1,myThid)
64            ENDIF
65    
66          ENDIF
67    
68        RETURN        RETURN
69        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22