/[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.2 by jmc, Sat Dec 18 23:53:04 2004 UTC
# Line 270  C diagarrays common Line 270  C diagarrays common
270        CHARACTER*8   CGWCVS        CHARACTER*8   CGWCVS
271        CHARACTER*8   CGWCU        CHARACTER*8   CGWCU
272        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  
273    
274        EQUIVALENCE ( CDIAG( 1) ,  CUFLUX  )        EQUIVALENCE ( CDIAG( 1) ,  CUFLUX  )
275        EQUIVALENCE ( CDIAG( 2) ,  CVFLUX  )        EQUIVALENCE ( CDIAG( 2) ,  CVFLUX  )
# Line 562  C diagarrays common Line 500  C diagarrays common
500        EQUIVALENCE ( CDIAG(235),  CGWCVS    )        EQUIVALENCE ( CDIAG(235),  CGWCVS    )
501        EQUIVALENCE ( CDIAG(236),  CGWCU     )        EQUIVALENCE ( CDIAG(236),  CGWCU     )
502        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   )  
503    
504        integer       iUFLUX   , kUFLUX   , nUFLUX        integer       iUFLUX   , kUFLUX   , nUFLUX
505        integer       iVFLUX   , kVFLUX   , nVFLUX        integer       iVFLUX   , kVFLUX   , nVFLUX
# Line 854  C diagarrays common Line 730  C diagarrays common
730        integer       iGWCVS   , kGWCVS   , nGWCVS        integer       iGWCVS   , kGWCVS   , nGWCVS
731        integer       iGWCU    , kGWCU    , nGWCU        integer       iGWCU    , kGWCU    , nGWCU
732        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  
733    
734    
735  c Diagnostic Pointers  C Diagnostic Pointers
736  c -------------------  C -------------------
737        EQUIVALENCE ( IDIAG( 1) ,  IUFLUX  )        EQUIVALENCE ( IDIAG( 1) ,  IUFLUX  )
738        EQUIVALENCE ( IDIAG( 2) ,  IVFLUX  )        EQUIVALENCE ( IDIAG( 2) ,  IVFLUX  )
739        EQUIVALENCE ( IDIAG( 3) ,  IHFLUX  )        EQUIVALENCE ( IDIAG( 3) ,  IHFLUX  )
# Line 1149  c ------------------- Line 963  c -------------------
963        EQUIVALENCE ( IDIAG(235),  IGWCVS    )        EQUIVALENCE ( IDIAG(235),  IGWCVS    )
964        EQUIVALENCE ( IDIAG(236),  IGWCU     )        EQUIVALENCE ( IDIAG(236),  IGWCU     )
965        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   )  
966    
967    
968  c Diagnostic Levels  C Diagnostic Levels
969  c -----------------  C -----------------
970        EQUIVALENCE ( KDIAG( 1) ,  KUFLUX  )        EQUIVALENCE ( KDIAG( 1) ,  KUFLUX  )
971        EQUIVALENCE ( KDIAG( 2) ,  KVFLUX  )        EQUIVALENCE ( KDIAG( 2) ,  KVFLUX  )
972        EQUIVALENCE ( KDIAG( 3) ,  KHFLUX  )        EQUIVALENCE ( KDIAG( 3) ,  KHFLUX  )
# Line 1444  c ----------------- Line 1196  c -----------------
1196        EQUIVALENCE ( KDIAG(235),  KGWCVS    )        EQUIVALENCE ( KDIAG(235),  KGWCVS    )
1197        EQUIVALENCE ( KDIAG(236),  KGWCU     )        EQUIVALENCE ( KDIAG(236),  KGWCU     )
1198        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   )  
1199    
1200    
1201  c Diagnostic Counters  C Diagnostic Counters
1202  c -------------------  C -------------------
1203        EQUIVALENCE ( NDIAG( 1) ,  NUFLUX  )        EQUIVALENCE ( NDIAG( 1) ,  NUFLUX  )
1204        EQUIVALENCE ( NDIAG( 2) ,  NVFLUX  )        EQUIVALENCE ( NDIAG( 2) ,  NVFLUX  )
1205        EQUIVALENCE ( NDIAG( 3) ,  NHFLUX  )        EQUIVALENCE ( NDIAG( 3) ,  NHFLUX  )
# Line 1739  c ------------------- Line 1429  c -------------------
1429        EQUIVALENCE ( NDIAG(235),  NGWCVS    )        EQUIVALENCE ( NDIAG(235),  NGWCVS    )
1430        EQUIVALENCE ( NDIAG(236),  NGWCU     )        EQUIVALENCE ( NDIAG(236),  NGWCU     )
1431        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   )  
1432    
1433    
1434  C diagnostics common  C diagnostics common
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22