/[MITgcm]/MITgcm/pkg/diagnostics/DIAGNOSTICS.h
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/DIAGNOSTICS.h

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.10 by jmc, Sun Jun 26 16:51:49 2005 UTC
# Line 5  C ====================================== Line 5  C ======================================
5  C  Common blocks for diagnostics package.  C  Common blocks for diagnostics package.
6  C  - diagarrays contains the master list of diagnostics and parameters  C  - diagarrays contains the master list of diagnostics and parameters
7  C        ndiagt :: total number of available diagnostics  C        ndiagt :: total number of available diagnostics
 C         cdiag - character names  
 C         idiag - slot number in large diagnostic array  
8  C         kdiag - number of levels associated with the diagnostic  C         kdiag - number of levels associated with the diagnostic
9  C         ndiag - counter for number of times diagnostic is added  C         cdiag - character names
10  C         tdiag - description of field in diagnostic  C         tdiag - description of field in diagnostic
11  C         gdiag - parser field with characteristics of the diagnostics  C         gdiag - parser field with characteristics of the diagnostics
12  C         udiag - physical units of the diagnostic field  C         udiag - physical units of the diagnostic field
13  C  - diagnostics contains the large array containing diagnostic fields  C  - diagnostics contains the large array containing diagnostic fields
14  C         qdiag - diagnostic fields array  C         qdiag - diagnostic fields array
15    C        qSdiag - storage array for diagnostics of (per level) statistics
16    C         ndiag - counter for number of times diagnostic is added
17    C  - diag_choices contains the user-chosen list of fields to store
18    C         idiag - slot number in large diagnostic array
19    C         mdiag - slot number in large diagnostic array for the mate
20  C         jdiag - short-list (active diag.) to long-list (available diag.)  C         jdiag - short-list (active diag.) to long-list (available diag.)
21  C                 pointer  C                 pointer
22  C  - diag_choices contains the user-chosen list of fields to store  C  - diag_statis  contains the user-chosen list of statistics to store
23  C ======================================================================  C ======================================================================
24    
25  C diagarrays common  C diagarrays common
26    
27        integer        ndiagt        integer        ndiagt
28    
       character*8    cdiag(ndiagMax)  
       integer        idiag(ndiagMax)  
29        integer        kdiag(ndiagMax)        integer        kdiag(ndiagMax)
30        integer        ndiag(ndiagMax)  c     integer        idiag(ndiagMax)
31        integer        mdiag(ndiagMax)  c     integer        ndiag(ndiagMax)
32    c     integer        mdiag(ndiagMax)
33          character*8    cdiag(ndiagMax)
34        character*80   tdiag(ndiagMax)        character*80   tdiag(ndiagMax)
35        character*16   gdiag(ndiagMax)        character*16   gdiag(ndiagMax)
36        character*16   udiag(ndiagMax)        character*16   udiag(ndiagMax)
37    
38        common /diagarrays/ ndiagt        common /diagarrays/ ndiagt
       common /diagarrays/ cdiag  
       common /diagarrays/ idiag  
39        common /diagarrays/ kdiag        common /diagarrays/ kdiag
40        common /diagarrays/ ndiag  c     common /diagarrays/ idiag
41        common /diagarrays/ mdiag  c     common /diagarrays/ ndiag
42    c     common /diagarrays/ mdiag
43          common /diagarrays/ cdiag
44        common /diagarrays/ tdiag        common /diagarrays/ tdiag
45        common /diagarrays/ gdiag        common /diagarrays/ gdiag
46        common /diagarrays/ udiag        common /diagarrays/ udiag
47    
48    #ifdef ALLOW_DIRECT_FILLING_WITH_EQUIV
49    
50        CHARACTER*8   CUFLUX        CHARACTER*8   CUFLUX
51        CHARACTER*8   CVFLUX        CHARACTER*8   CVFLUX
52        CHARACTER*8   CHFLUX        CHARACTER*8   CHFLUX
# Line 270  C diagarrays common Line 275  C diagarrays common
275        CHARACTER*8   CGWCVS        CHARACTER*8   CGWCVS
276        CHARACTER*8   CGWCU        CHARACTER*8   CGWCU
277        CHARACTER*8   CGWCV        CHARACTER*8   CGWCV
       CHARACTER*8   CETAN  
       CHARACTER*8   CETANSQ  
       CHARACTER*8   CTHETA  
       CHARACTER*8   CSALT  
       CHARACTER*8   CUVEL  
       CHARACTER*8   CVVEL  
       CHARACTER*8   CWVEL  
       CHARACTER*8   CTHETASQ  
       CHARACTER*8   CSALTSQ  
       CHARACTER*8   CUVELSQ  
       CHARACTER*8   CVVELSQ  
       CHARACTER*8   CWVELSQ  
       CHARACTER*8   CUVELVVEL  
       CHARACTER*8   CUVELMASS  
       CHARACTER*8   CVVELMASS  
       CHARACTER*8   CWVELMASS  
       CHARACTER*8   CUTHMASS  
       CHARACTER*8   CVTHMASS  
       CHARACTER*8   CWTHMASS  
       CHARACTER*8   CUSLTMASS  
       CHARACTER*8   CVSLTMASS  
       CHARACTER*8   CWSLTMASS  
       CHARACTER*8   CUVELTH  
       CHARACTER*8   CVVELTH  
       CHARACTER*8   CWVELTH  
       CHARACTER*8   CUVELSLT  
       CHARACTER*8   CVVELSLT  
       CHARACTER*8   CWVELSLT  
       CHARACTER*8   CUTRAC1  
       CHARACTER*8   CVTRAC1  
       CHARACTER*8   CWTRAC1  
       CHARACTER*8   CUTRAC2  
       CHARACTER*8   CVTRAC2  
       CHARACTER*8   CWTRAC2  
       CHARACTER*8   CUTRAC3  
       CHARACTER*8   CVTRAC3  
       CHARACTER*8   CWTRAC3  
       CHARACTER*8   CUTRAC4  
       CHARACTER*8   CVTRAC4  
       CHARACTER*8   CWTRAC4  
       CHARACTER*8   CUTRAC5  
       CHARACTER*8   CVTRAC5  
       CHARACTER*8   CWTRAC5  
       CHARACTER*8   CTRAC1    
       CHARACTER*8   CTRAC2    
       CHARACTER*8   CTRAC3    
       CHARACTER*8   CTRAC4    
       CHARACTER*8   CTRAC5    
       CHARACTER*8   CDICBIOA  
       CHARACTER*8   CDICCARB  
       CHARACTER*8   CDICTFLX  
       CHARACTER*8   CDICOFLX  
       CHARACTER*8   CDICCFLX  
       CHARACTER*8   CDICPCO2  
       CHARACTER*8   CDICPHAV  
       CHARACTER*8   CDTCONV  
       CHARACTER*8   CDQCONV  
       CHARACTER*8   CRELHUM  
       CHARACTER*8   CPRECLS  
       CHARACTER*8   CENPREC  
       CHARACTER*8   CVISCA4  
       CHARACTER*8   CVISCAH  
278    
279        EQUIVALENCE ( CDIAG( 1) ,  CUFLUX  )        EQUIVALENCE ( CDIAG( 1) ,  CUFLUX  )
280        EQUIVALENCE ( CDIAG( 2) ,  CVFLUX  )        EQUIVALENCE ( CDIAG( 2) ,  CVFLUX  )
# Line 562  C diagarrays common Line 505  C diagarrays common
505        EQUIVALENCE ( CDIAG(235),  CGWCVS    )        EQUIVALENCE ( CDIAG(235),  CGWCVS    )
506        EQUIVALENCE ( CDIAG(236),  CGWCU     )        EQUIVALENCE ( CDIAG(236),  CGWCU     )
507        EQUIVALENCE ( CDIAG(237),  CGWCV     )        EQUIVALENCE ( CDIAG(237),  CGWCV     )
       EQUIVALENCE ( CDIAG(238),  CETAN     )  
       EQUIVALENCE ( CDIAG(239),  CETANSQ   )  
       EQUIVALENCE ( CDIAG(240),  CTHETA    )  
       EQUIVALENCE ( CDIAG(241),  CSALT     )  
       EQUIVALENCE ( CDIAG(242),  CUVEL     )  
       EQUIVALENCE ( CDIAG(243),  CVVEL     )  
       EQUIVALENCE ( CDIAG(244),  CWVEL     )  
       EQUIVALENCE ( CDIAG(245),  CTHETASQ  )  
       EQUIVALENCE ( CDIAG(246),  CSALTSQ   )  
       EQUIVALENCE ( CDIAG(247),  CUVELSQ   )  
       EQUIVALENCE ( CDIAG(248),  CVVELSQ   )  
       EQUIVALENCE ( CDIAG(249),  CWVELSQ   )  
       EQUIVALENCE ( CDIAG(250),  CUVELVVEL )  
       EQUIVALENCE ( CDIAG(251),  CUVELMASS )  
       EQUIVALENCE ( CDIAG(252),  CVVELMASS )  
       EQUIVALENCE ( CDIAG(253),  CWVELMASS )  
       EQUIVALENCE ( CDIAG(254),  CUTHMASS  )  
       EQUIVALENCE ( CDIAG(255),  CVTHMASS  )  
       EQUIVALENCE ( CDIAG(256),  CWTHMASS  )  
       EQUIVALENCE ( CDIAG(257),  CUSLTMASS )  
       EQUIVALENCE ( CDIAG(258),  CVSLTMASS )  
       EQUIVALENCE ( CDIAG(259),  CWSLTMASS )  
       EQUIVALENCE ( CDIAG(260),  CUVELTH   )  
       EQUIVALENCE ( CDIAG(261),  CVVELTH   )  
       EQUIVALENCE ( CDIAG(262),  CWVELTH   )  
       EQUIVALENCE ( CDIAG(263),  CUVELSLT  )  
       EQUIVALENCE ( CDIAG(264),  CVVELSLT  )  
       EQUIVALENCE ( CDIAG(265),  CWVELSLT  )  
       EQUIVALENCE ( CDIAG(266),  CUTRAC1   )  
       EQUIVALENCE ( CDIAG(267),  CVTRAC1   )  
       EQUIVALENCE ( CDIAG(268),  CWTRAC1   )  
       EQUIVALENCE ( CDIAG(269),  CUTRAC2   )  
       EQUIVALENCE ( CDIAG(270),  CVTRAC2   )  
       EQUIVALENCE ( CDIAG(271),  CWTRAC2   )  
       EQUIVALENCE ( CDIAG(272),  CUTRAC3   )  
       EQUIVALENCE ( CDIAG(273),  CVTRAC3   )  
       EQUIVALENCE ( CDIAG(274),  CWTRAC3   )  
       EQUIVALENCE ( CDIAG(275),  CUTRAC4   )  
       EQUIVALENCE ( CDIAG(276),  CVTRAC4   )  
       EQUIVALENCE ( CDIAG(277),  CWTRAC4   )  
       EQUIVALENCE ( CDIAG(278),  CUTRAC5   )  
       EQUIVALENCE ( CDIAG(279),  CVTRAC5   )  
       EQUIVALENCE ( CDIAG(280),  CWTRAC5   )  
       EQUIVALENCE ( CDIAG(281),  CTRAC1    )  
       EQUIVALENCE ( CDIAG(282),  CTRAC2    )  
       EQUIVALENCE ( CDIAG(283),  CTRAC3    )  
       EQUIVALENCE ( CDIAG(284),  CTRAC4    )  
       EQUIVALENCE ( CDIAG(285),  CTRAC5    )  
       EQUIVALENCE ( CDIAG(286),  CDICBIOA  )  
       EQUIVALENCE ( CDIAG(287),  CDICCARB  )  
       EQUIVALENCE ( CDIAG(288),  CDICTFLX  )  
       EQUIVALENCE ( CDIAG(289),  CDICOFLX  )  
       EQUIVALENCE ( CDIAG(290),  CDICCFLX  )  
       EQUIVALENCE ( CDIAG(291),  CDICPCO2  )  
       EQUIVALENCE ( CDIAG(292),  CDICPHAV  )  
       EQUIVALENCE ( CDIAG(293),  CDTCONV   )  
       EQUIVALENCE ( CDIAG(294),  CDQCONV   )  
       EQUIVALENCE ( CDIAG(295),  CRELHUM   )  
       EQUIVALENCE ( CDIAG(296),  CPRECLS   )  
       EQUIVALENCE ( CDIAG(297),  CENPREC   )  
       EQUIVALENCE ( CDIAG(298),  CVISCA4   )  
       EQUIVALENCE ( CDIAG(299),  CVISCAH   )  
508    
509        integer       iUFLUX   , kUFLUX   , nUFLUX        integer       iUFLUX   , kUFLUX   , nUFLUX
510        integer       iVFLUX   , kVFLUX   , nVFLUX        integer       iVFLUX   , kVFLUX   , nVFLUX
# Line 854  C diagarrays common Line 735  C diagarrays common
735        integer       iGWCVS   , kGWCVS   , nGWCVS        integer       iGWCVS   , kGWCVS   , nGWCVS
736        integer       iGWCU    , kGWCU    , nGWCU        integer       iGWCU    , kGWCU    , nGWCU
737        integer       iGWCV    , kGWCV    , nGWCV        integer       iGWCV    , kGWCV    , nGWCV
       integer       iETAN    , kETAN    , nETAN  
       integer       iETANSQ  , kETANSQ  , nETANSQ  
       integer       iTHETA   , kTHETA   , nTHETA  
       integer       iSALT    , kSALT    , nSALT    
       integer       iUVEL    , kUVEL    , nUVEL    
       integer       iVVEL    , kVVEL    , nVVEL    
       integer       iWVEL    , kWVEL    , nWVEL    
       integer       iTHETASQ , kTHETASQ , nTHETASQ  
       integer       iSALTSQ  , kSALTSQ  , nSALTSQ  
       integer       iUVELSQ  , kUVELSQ  , nUVELSQ  
       integer       iVVELSQ  , kVVELSQ  , nVVELSQ  
       integer       iWVELSQ  , kWVELSQ  , nWVELSQ    
       integer       iUVELVVEL, kUVELVVEL, nUVELVVEL  
       integer       iUVELMASS, kUVELMASS, nUVELMASS  
       integer       iVVELMASS, kVVELMASS, nVVELMASS  
       integer       iWVELMASS, kWVELMASS, nWVELMASS  
       integer       iUTHMASS , kUTHMASS,  nUTHMASS  
       integer       iVTHMASS , kVTHMASS,  nVTHMASS  
       integer       iWTHMASS , kWTHMASS,  nWTHMASS  
       integer       iUSLTMASS, kUSLTMASS, nUSLTMASS  
       integer       iVSLTMASS, kVSLTMASS, nVSLTMASS  
       integer       iWSLTMASS, kWSLTMASS, nWSLTMASS  
       integer       iUVELTH  , kUVELTH,   nUVELTH  
       integer       iVVELTH  , kVVELTH,   nVVELTH  
       integer       iWVELTH  , kWVELTH,   nWVELTH  
       integer       iUVELSLT , kUVELSLT,  nUVELSLT  
       integer       iVVELSLT , kVVELSLT,  nVVELSLT  
       integer       iWVELSLT , kWVELSLT,  nWVELSLT  
       integer       iUTRAC1  , kUTRAC1,   nUTRAC1  
       integer       iVTRAC1  , kVTRAC1,   nVTRAC1  
       integer       iWTRAC1  , kWTRAC1,   nWTRAC1  
       integer       iUTRAC2  , kUTRAC2,   nUTRAC2  
       integer       iVTRAC2  , kVTRAC2,   nVTRAC2  
       integer       iWTRAC2  , kWTRAC2,   nWTRAC2  
       integer       iUTRAC3  , kUTRAC3,   nUTRAC3  
       integer       iVTRAC3  , kVTRAC3,   nVTRAC3  
       integer       iWTRAC3  , kWTRAC3,   nWTRAC3  
       integer       iUTRAC4  , kUTRAC4,   nUTRAC4  
       integer       iVTRAC4  , kVTRAC4,   nVTRAC4  
       integer       iWTRAC4  , kWTRAC4,   nWTRAC4  
       integer       iUTRAC5  , kUTRAC5,   nUTRAC5  
       integer       iVTRAC5  , kVTRAC5,   nVTRAC5  
       integer       iWTRAC5  , kWTRAC5,   nWTRAC5  
       integer       iTRAC1   , kTRAC1 ,   nTRAC1  
       integer       iTRAC2   , kTRAC2 ,   nTRAC2  
       integer       iTRAC3   , kTRAC3 ,   nTRAC3  
       integer       iTRAC4   , kTRAC4 ,   nTRAC4  
       integer       iTRAC5   , kTRAC5 ,   nTRAC5  
       integer       iDICBIOA , kDICBIOA , nDICBIOA  
       integer       iDICCARB , kDICCARB , nDICCARB  
       integer       iDICTFLX , kDICTFLX , nDICTFLX  
       integer       iDICOFLX , kDICOFLX , nDICOFLX  
       integer       iDICCFLX , kDICCFLX , nDICCFLX  
       integer       iDICPCO2 , kDICPCO2 , nDICPCO2  
       integer       iDICPHAV , kDICPHAV , nDICPHAV  
       integer       iDTCONV  , kDTCONV ,  nDTCONV  
       integer       iDQCONV  , kDQCONV ,  nDQCONV  
       integer       iRELHUM  , kRELHUM ,  nRELHUM  
       integer       iPRECLS  , kPRECLS ,  nPRECLS  
       integer       iENPREC  , kENPREC ,  nENPREC  
       integer       iVISCA4  , kVISCA4 ,  nVISCA4  
       integer       iVISCAH  , kVISCAH ,  nVISCAH  
738    
739    
740  c Diagnostic Pointers  C Diagnostic Pointers
741  c -------------------  C -------------------
742        EQUIVALENCE ( IDIAG( 1) ,  IUFLUX  )        EQUIVALENCE ( IDIAG( 1) ,  IUFLUX  )
743        EQUIVALENCE ( IDIAG( 2) ,  IVFLUX  )        EQUIVALENCE ( IDIAG( 2) ,  IVFLUX  )
744        EQUIVALENCE ( IDIAG( 3) ,  IHFLUX  )        EQUIVALENCE ( IDIAG( 3) ,  IHFLUX  )
# Line 1149  c ------------------- Line 968  c -------------------
968        EQUIVALENCE ( IDIAG(235),  IGWCVS    )        EQUIVALENCE ( IDIAG(235),  IGWCVS    )
969        EQUIVALENCE ( IDIAG(236),  IGWCU     )        EQUIVALENCE ( IDIAG(236),  IGWCU     )
970        EQUIVALENCE ( IDIAG(237),  IGWCV     )        EQUIVALENCE ( IDIAG(237),  IGWCV     )
       EQUIVALENCE ( IDIAG(238),  IETAN     )  
       EQUIVALENCE ( IDIAG(239),  IETANSQ   )  
       EQUIVALENCE ( IDIAG(240),  ITHETA    )  
       EQUIVALENCE ( IDIAG(241),  ISALT     )  
       EQUIVALENCE ( IDIAG(242),  IUVEL     )  
       EQUIVALENCE ( IDIAG(243),  IVVEL     )  
       EQUIVALENCE ( IDIAG(244),  IWVEL     )  
       EQUIVALENCE ( IDIAG(245),  ITHETASQ  )  
       EQUIVALENCE ( IDIAG(246),  ISALTSQ   )  
       EQUIVALENCE ( IDIAG(247),  IUVELSQ   )  
       EQUIVALENCE ( IDIAG(248),  IVVELSQ   )  
       EQUIVALENCE ( IDIAG(249),  IWVELSQ   )  
       EQUIVALENCE ( IDIAG(250),  IUVELVVEL )  
       EQUIVALENCE ( IDIAG(251),  IUVELMASS )  
       EQUIVALENCE ( IDIAG(252),  IVVELMASS )  
       EQUIVALENCE ( IDIAG(253),  IWVELMASS )  
       EQUIVALENCE ( IDIAG(254),  IUTHMASS  )  
       EQUIVALENCE ( IDIAG(255),  IVTHMASS  )  
       EQUIVALENCE ( IDIAG(256),  IWTHMASS  )  
       EQUIVALENCE ( IDIAG(257),  IUSLTMASS )  
       EQUIVALENCE ( IDIAG(258),  IVSLTMASS )  
       EQUIVALENCE ( IDIAG(259),  IWSLTMASS )  
       EQUIVALENCE ( IDIAG(260),  IUVELTH   )  
       EQUIVALENCE ( IDIAG(261),  IVVELTH   )  
       EQUIVALENCE ( IDIAG(262),  IWVELTH   )  
       EQUIVALENCE ( IDIAG(263),  IUVELSLT  )  
       EQUIVALENCE ( IDIAG(264),  IVVELSLT  )  
       EQUIVALENCE ( IDIAG(265),  IWVELSLT  )  
       EQUIVALENCE ( IDIAG(266),  IUTRAC1   )  
       EQUIVALENCE ( IDIAG(267),  IVTRAC1   )  
       EQUIVALENCE ( IDIAG(268),  IWTRAC1   )  
       EQUIVALENCE ( IDIAG(269),  IUTRAC2   )  
       EQUIVALENCE ( IDIAG(270),  IVTRAC2   )  
       EQUIVALENCE ( IDIAG(271),  IWTRAC2   )  
       EQUIVALENCE ( IDIAG(272),  IUTRAC3   )  
       EQUIVALENCE ( IDIAG(273),  IVTRAC3   )  
       EQUIVALENCE ( IDIAG(274),  IWTRAC3   )  
       EQUIVALENCE ( IDIAG(275),  IUTRAC4   )  
       EQUIVALENCE ( IDIAG(276),  IVTRAC4   )  
       EQUIVALENCE ( IDIAG(277),  IWTRAC4   )  
       EQUIVALENCE ( IDIAG(278),  IUTRAC5   )  
       EQUIVALENCE ( IDIAG(279),  IVTRAC5   )  
       EQUIVALENCE ( IDIAG(280),  IWTRAC5   )  
       EQUIVALENCE ( IDIAG(281),  ITRAC1    )  
       EQUIVALENCE ( IDIAG(282),  ITRAC2    )  
       EQUIVALENCE ( IDIAG(283),  ITRAC3    )  
       EQUIVALENCE ( IDIAG(284),  ITRAC4    )  
       EQUIVALENCE ( IDIAG(285),  ITRAC5    )  
       EQUIVALENCE ( IDIAG(286),  IDICBIOA  )  
       EQUIVALENCE ( IDIAG(287),  IDICCARB  )  
       EQUIVALENCE ( IDIAG(288),  IDICTFLX  )  
       EQUIVALENCE ( IDIAG(289),  IDICOFLX  )  
       EQUIVALENCE ( IDIAG(290),  IDICCFLX  )  
       EQUIVALENCE ( IDIAG(291),  IDICPCO2  )  
       EQUIVALENCE ( IDIAG(292),  IDICPHAV  )  
       EQUIVALENCE ( IDIAG(293),  IDTCONV   )  
       EQUIVALENCE ( IDIAG(294),  IDQCONV   )  
       EQUIVALENCE ( IDIAG(295),  IRELHUM   )  
       EQUIVALENCE ( IDIAG(296),  IPRECLS   )  
       EQUIVALENCE ( IDIAG(297),  IENPREC   )  
       EQUIVALENCE ( IDIAG(298),  IVISCA4   )  
       EQUIVALENCE ( IDIAG(299),  IVISCAH   )  
971    
972    
973  c Diagnostic Levels  C Diagnostic Levels
974  c -----------------  C -----------------
975        EQUIVALENCE ( KDIAG( 1) ,  KUFLUX  )        EQUIVALENCE ( KDIAG( 1) ,  KUFLUX  )
976        EQUIVALENCE ( KDIAG( 2) ,  KVFLUX  )        EQUIVALENCE ( KDIAG( 2) ,  KVFLUX  )
977        EQUIVALENCE ( KDIAG( 3) ,  KHFLUX  )        EQUIVALENCE ( KDIAG( 3) ,  KHFLUX  )
# Line 1444  c ----------------- Line 1201  c -----------------
1201        EQUIVALENCE ( KDIAG(235),  KGWCVS    )        EQUIVALENCE ( KDIAG(235),  KGWCVS    )
1202        EQUIVALENCE ( KDIAG(236),  KGWCU     )        EQUIVALENCE ( KDIAG(236),  KGWCU     )
1203        EQUIVALENCE ( KDIAG(237),  KGWCV     )        EQUIVALENCE ( KDIAG(237),  KGWCV     )
       EQUIVALENCE ( KDIAG(238),  KETAN     )  
       EQUIVALENCE ( KDIAG(239),  KETANSQ   )  
       EQUIVALENCE ( KDIAG(240),  KTHETA    )  
       EQUIVALENCE ( KDIAG(241),  KSALT     )  
       EQUIVALENCE ( KDIAG(242),  KUVEL     )  
       EQUIVALENCE ( KDIAG(243),  KVVEL     )  
       EQUIVALENCE ( KDIAG(244),  KWVEL     )  
       EQUIVALENCE ( KDIAG(245),  KTHETASQ  )  
       EQUIVALENCE ( KDIAG(246),  KSALTSQ   )  
       EQUIVALENCE ( KDIAG(247),  KUVELSQ   )  
       EQUIVALENCE ( KDIAG(248),  KVVELSQ   )  
       EQUIVALENCE ( KDIAG(249),  KWVELSQ   )  
       EQUIVALENCE ( KDIAG(250),  KUVELVVEL )  
       EQUIVALENCE ( KDIAG(251),  KUVELMASS )  
       EQUIVALENCE ( KDIAG(252),  KVVELMASS )  
       EQUIVALENCE ( KDIAG(253),  KWVELMASS )  
       EQUIVALENCE ( KDIAG(254),  KUTHMASS  )  
       EQUIVALENCE ( KDIAG(255),  KVTHMASS  )  
       EQUIVALENCE ( KDIAG(256),  KWTHMASS  )  
       EQUIVALENCE ( KDIAG(257),  KUSLTMASS )  
       EQUIVALENCE ( KDIAG(258),  KVSLTMASS )  
       EQUIVALENCE ( KDIAG(259),  KWSLTMASS )  
       EQUIVALENCE ( KDIAG(260),  KUVELTH   )  
       EQUIVALENCE ( KDIAG(261),  KVVELTH   )  
       EQUIVALENCE ( KDIAG(262),  KWVELTH   )  
       EQUIVALENCE ( KDIAG(263),  KUVELSLT  )  
       EQUIVALENCE ( KDIAG(264),  KVVELSLT  )  
       EQUIVALENCE ( KDIAG(265),  KWVELSLT  )  
       EQUIVALENCE ( KDIAG(266),  KUTRAC1   )  
       EQUIVALENCE ( KDIAG(267),  KVTRAC1   )  
       EQUIVALENCE ( KDIAG(268),  KWTRAC1   )  
       EQUIVALENCE ( KDIAG(269),  KUTRAC2   )  
       EQUIVALENCE ( KDIAG(270),  KVTRAC2   )  
       EQUIVALENCE ( KDIAG(271),  KWTRAC2   )  
       EQUIVALENCE ( KDIAG(272),  KUTRAC3   )  
       EQUIVALENCE ( KDIAG(273),  KVTRAC3   )  
       EQUIVALENCE ( KDIAG(274),  KWTRAC3   )  
       EQUIVALENCE ( KDIAG(275),  KUTRAC4   )  
       EQUIVALENCE ( KDIAG(276),  KVTRAC4   )  
       EQUIVALENCE ( KDIAG(277),  KWTRAC4   )  
       EQUIVALENCE ( KDIAG(278),  KUTRAC5   )  
       EQUIVALENCE ( KDIAG(279),  KVTRAC5   )  
       EQUIVALENCE ( KDIAG(280),  KWTRAC5   )  
       EQUIVALENCE ( KDIAG(281),  KTRAC1    )  
       EQUIVALENCE ( KDIAG(282),  KTRAC2    )  
       EQUIVALENCE ( KDIAG(283),  KTRAC3    )  
       EQUIVALENCE ( KDIAG(284),  KTRAC4    )  
       EQUIVALENCE ( KDIAG(285),  KTRAC5    )  
       EQUIVALENCE ( KDIAG(286),  KDICBIOA  )  
       EQUIVALENCE ( KDIAG(287),  KDICCARB  )  
       EQUIVALENCE ( KDIAG(288),  KDICTFLX  )  
       EQUIVALENCE ( KDIAG(289),  KDICOFLX  )  
       EQUIVALENCE ( KDIAG(290),  KDICCFLX  )  
       EQUIVALENCE ( KDIAG(291),  KDICPCO2  )  
       EQUIVALENCE ( KDIAG(292),  KDICPHAV  )  
       EQUIVALENCE ( KDIAG(293),  KDTCONV   )  
       EQUIVALENCE ( KDIAG(294),  KDQCONV   )  
       EQUIVALENCE ( KDIAG(295),  KRELHUM   )  
       EQUIVALENCE ( KDIAG(296),  KPRECLS   )  
       EQUIVALENCE ( KDIAG(297),  KENPREC   )  
       EQUIVALENCE ( KDIAG(298),  KVISCA4   )  
       EQUIVALENCE ( KDIAG(299),  KVISCAH   )  
1204    
1205    
1206  c Diagnostic Counters  C Diagnostic Counters
1207  c -------------------  C -------------------
1208        EQUIVALENCE ( NDIAG( 1) ,  NUFLUX  )        EQUIVALENCE ( NDIAG( 1) ,  NUFLUX  )
1209        EQUIVALENCE ( NDIAG( 2) ,  NVFLUX  )        EQUIVALENCE ( NDIAG( 2) ,  NVFLUX  )
1210        EQUIVALENCE ( NDIAG( 3) ,  NHFLUX  )        EQUIVALENCE ( NDIAG( 3) ,  NHFLUX  )
# Line 1739  c ------------------- Line 1434  c -------------------
1434        EQUIVALENCE ( NDIAG(235),  NGWCVS    )        EQUIVALENCE ( NDIAG(235),  NGWCVS    )
1435        EQUIVALENCE ( NDIAG(236),  NGWCU     )        EQUIVALENCE ( NDIAG(236),  NGWCU     )
1436        EQUIVALENCE ( NDIAG(237),  NGWCV     )        EQUIVALENCE ( NDIAG(237),  NGWCV     )
       EQUIVALENCE ( NDIAG(238),  NETAN     )  
       EQUIVALENCE ( NDIAG(239),  NETANSQ   )  
       EQUIVALENCE ( NDIAG(240),  NTHETA    )  
       EQUIVALENCE ( NDIAG(241),  NSALT     )  
       EQUIVALENCE ( NDIAG(242),  NUVEL     )  
       EQUIVALENCE ( NDIAG(243),  NVVEL     )  
       EQUIVALENCE ( NDIAG(244),  NWVEL     )  
       EQUIVALENCE ( NDIAG(245),  NTHETASQ  )  
       EQUIVALENCE ( NDIAG(246),  NSALTSQ   )  
       EQUIVALENCE ( NDIAG(247),  NUVELSQ   )  
       EQUIVALENCE ( NDIAG(248),  NVVELSQ   )  
       EQUIVALENCE ( NDIAG(249),  NWVELSQ   )  
       EQUIVALENCE ( NDIAG(250),  NUVELVVEL )  
       EQUIVALENCE ( NDIAG(251),  NUVELMASS )  
       EQUIVALENCE ( NDIAG(252),  NVVELMASS )  
       EQUIVALENCE ( NDIAG(253),  NWVELMASS )  
       EQUIVALENCE ( NDIAG(254),  NUTHMASS  )  
       EQUIVALENCE ( NDIAG(255),  NVTHMASS  )  
       EQUIVALENCE ( NDIAG(256),  NWTHMASS  )  
       EQUIVALENCE ( NDIAG(257),  NUSLTMASS )  
       EQUIVALENCE ( NDIAG(258),  NVSLTMASS )  
       EQUIVALENCE ( NDIAG(259),  NWSLTMASS )  
       EQUIVALENCE ( NDIAG(260),  NUVELTH   )  
       EQUIVALENCE ( NDIAG(261),  NVVELTH   )  
       EQUIVALENCE ( NDIAG(262),  NWVELTH   )  
       EQUIVALENCE ( NDIAG(263),  NUVELSLT  )  
       EQUIVALENCE ( NDIAG(264),  NVVELSLT  )  
       EQUIVALENCE ( NDIAG(265),  NWVELSLT  )  
       EQUIVALENCE ( NDIAG(266),  NUTRAC1   )  
       EQUIVALENCE ( NDIAG(267),  NVTRAC1   )  
       EQUIVALENCE ( NDIAG(268),  NWTRAC1   )  
       EQUIVALENCE ( NDIAG(269),  NUTRAC2   )  
       EQUIVALENCE ( NDIAG(270),  NVTRAC2   )  
       EQUIVALENCE ( NDIAG(271),  NWTRAC2   )  
       EQUIVALENCE ( NDIAG(272),  NUTRAC3   )  
       EQUIVALENCE ( NDIAG(273),  NVTRAC3   )  
       EQUIVALENCE ( NDIAG(274),  NWTRAC3   )  
       EQUIVALENCE ( NDIAG(275),  NUTRAC4   )  
       EQUIVALENCE ( NDIAG(276),  NVTRAC4   )  
       EQUIVALENCE ( NDIAG(277),  NWTRAC4   )  
       EQUIVALENCE ( NDIAG(278),  NUTRAC5   )  
       EQUIVALENCE ( NDIAG(279),  NVTRAC5   )  
       EQUIVALENCE ( NDIAG(280),  NWTRAC5   )  
       EQUIVALENCE ( NDIAG(281),  NTRAC1    )  
       EQUIVALENCE ( NDIAG(282),  NTRAC2    )  
       EQUIVALENCE ( NDIAG(283),  NTRAC3    )  
       EQUIVALENCE ( NDIAG(284),  NTRAC4    )  
       EQUIVALENCE ( NDIAG(285),  NTRAC5    )  
       EQUIVALENCE ( NDIAG(286),  NDICBIOA  )  
       EQUIVALENCE ( NDIAG(287),  NDICCARB  )  
       EQUIVALENCE ( NDIAG(288),  NDICTFLX  )  
       EQUIVALENCE ( NDIAG(289),  NDICOFLX  )  
       EQUIVALENCE ( NDIAG(290),  NDICCFLX  )  
       EQUIVALENCE ( NDIAG(291),  NDICPCO2  )  
       EQUIVALENCE ( NDIAG(292),  NDICPHAV  )  
       EQUIVALENCE ( NDIAG(293),  NDTCONV   )  
       EQUIVALENCE ( NDIAG(294),  NDQCONV   )  
       EQUIVALENCE ( NDIAG(295),  NRELHUM   )  
       EQUIVALENCE ( NDIAG(296),  NPRECLS   )  
       EQUIVALENCE ( NDIAG(297),  NENPREC   )  
       EQUIVALENCE ( NDIAG(298),  NVISCA4   )  
       EQUIVALENCE ( NDIAG(299),  NVISCAH   )  
1437    
1438    #endif /* ALLOW_DIRECT_FILLING_WITH_EQUIV */
1439    
1440  C diagnostics common  C diagnostics common
1441    C      qSdiag  - storage array for (per level) statistics
1442    
1443        _RL qdiag(1-OLx:sNx+Olx,1-Oly:sNy+Oly,numdiags,nSx,nSy)        _RL qdiag(1-OLx:sNx+Olx,1-Oly:sNy+Oly,numdiags,nSx,nSy)
1444          _RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy)
1445          integer  ndiag(numdiags,nSx,nSy)
1446    
1447        common /diagnostics/ qdiag        common /diagnostics/ qdiag, qSdiag, ndiag
1448    
1449            
1450  C diag_choices common  C diag_choices common
1451    C     freq       :: frequency (in s) to write output stream # n
1452    C     phase      :: phase     (in s) to write output stream # n
1453  C     nfields(n) :: number of active diagnostics for output stream # n  C     nfields(n) :: number of active diagnostics for output stream # n
1454  C     nActive(n) :: number of active diagnostics (including counters)  C     nActive(n) :: number of active diagnostics (including counters)
1455  C                   for output stream # n  C                   for output stream # n
1456    C     fflags(n)  :: character string with per-file flags
1457    
1458        integer nlists        integer nlists
1459    
1460        integer freq(numlists)        _RL freq(numlists), phase(numlists)
1461          _RL levs (numLevels,numlists)
1462        integer nlevels(numlists)        integer nlevels(numlists)
1463        integer nfields(numlists)        integer nfields(numlists)
1464        integer nActive(numlists)        integer nActive(numlists)
1465        _RL levs (numLevels,numlists)        integer idiag(numperlist,numlists)
1466          integer mdiag(numperlist,numlists)
1467        integer jdiag(numperlist,numlists)        integer jdiag(numperlist,numlists)
1468        character*8 flds (numperlist,numlists)        character*8 flds (numperlist,numlists)
1469        character*8 fnames(numlists)        character*80 fnames(numlists)
1470        logical diag_mdsio        character*8 fflags(numlists)
1471        logical diag_mnc        logical dumpatlast, diag_mdsio,  diag_mnc
1472          logical diag_pickup_read,        diag_pickup_write
1473        common /diag_choices/        logical diag_pickup_read_mdsio,  diag_pickup_write_mdsio
1474       &     levs, jdiag, flds, fnames,        logical diag_pickup_read_mnc,    diag_pickup_write_mnc
1475       &     freq, nlevels, nfields, nActive, nlists,  
1476       &     diag_mdsio, diag_mnc        common /diag_choices/
1477         &     freq, phase, levs, nlevels,
1478         &     nfields, nActive, nlists,
1479         &     idiag, mdiag, jdiag,
1480         &     dumpatlast, diag_mdsio, diag_mnc,
1481         &     diag_pickup_read,        diag_pickup_write,
1482         &     diag_pickup_read_mdsio,  diag_pickup_write_mdsio,
1483         &     diag_pickup_read_mnc,    diag_pickup_write_mnc,
1484         &     flds, fnames, fflags
1485    
1486    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
1487    
1488          _RL       diagSt_freq(numlists), diagSt_phase(numlists)
1489          CHARACTER*8  diagSt_Flds(numperlist,numlists)
1490          CHARACTER*80 diagSt_Fname(numlists)
1491          INTEGER   iSdiag(numperlist,numlists)
1492          INTEGER   jSdiag(numperlist,numlists)
1493          INTEGER   mSdiag(numperlist,numlists)
1494          INTEGER   diagSt_region(0:nRegions,numlists)
1495          INTEGER   diagSt_nbFlds(numlists)
1496          INTEGER   diagSt_nbActv(numlists)
1497          INTEGER   diagSt_nbLists
1498          INTEGER   diagSt_ioUnit(numlists)
1499          LOGICAL   diagSt_ascii, diagSt_mnc
1500          COMMON / DIAG_STATIS /
1501         &     diagSt_freq, diagSt_phase,
1502         &     iSdiag, jSdiag, mSdiag, diagSt_region,
1503         &     diagSt_nbFlds, diagSt_nbActv, diagSt_nbLists,
1504         &     diagSt_ioUnit,
1505         &     diagSt_Ascii, diagSt_mnc,
1506         &     diagSt_Flds, diagSt_Fname
1507    
1508  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
1509  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22