--- MITgcm/pkg/diagnostics/DIAGNOSTICS.h 2004/12/13 21:43:54 1.1 +++ MITgcm/pkg/diagnostics/DIAGNOSTICS.h 2004/12/18 23:53:04 1.2 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/DIAGNOSTICS.h,v 1.1 2004/12/13 21:43:54 jmc Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/DIAGNOSTICS.h,v 1.2 2004/12/18 23:53:04 jmc Exp $ C $Name: $ C ====================================================================== @@ -270,68 +270,6 @@ CHARACTER*8 CGWCVS CHARACTER*8 CGWCU 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 EQUIVALENCE ( CDIAG( 1) , CUFLUX ) EQUIVALENCE ( CDIAG( 2) , CVFLUX ) @@ -562,68 +500,6 @@ EQUIVALENCE ( CDIAG(235), CGWCVS ) EQUIVALENCE ( CDIAG(236), CGWCU ) 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 ) integer iUFLUX , kUFLUX , nUFLUX integer iVFLUX , kVFLUX , nVFLUX @@ -854,72 +730,10 @@ integer iGWCVS , kGWCVS , nGWCVS integer iGWCU , kGWCU , nGWCU 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 -c Diagnostic Pointers -c ------------------- +C Diagnostic Pointers +C ------------------- EQUIVALENCE ( IDIAG( 1) , IUFLUX ) EQUIVALENCE ( IDIAG( 2) , IVFLUX ) EQUIVALENCE ( IDIAG( 3) , IHFLUX ) @@ -1149,72 +963,10 @@ EQUIVALENCE ( IDIAG(235), IGWCVS ) EQUIVALENCE ( IDIAG(236), IGWCU ) 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 ) -c Diagnostic Levels -c ----------------- +C Diagnostic Levels +C ----------------- EQUIVALENCE ( KDIAG( 1) , KUFLUX ) EQUIVALENCE ( KDIAG( 2) , KVFLUX ) EQUIVALENCE ( KDIAG( 3) , KHFLUX ) @@ -1444,72 +1196,10 @@ EQUIVALENCE ( KDIAG(235), KGWCVS ) EQUIVALENCE ( KDIAG(236), KGWCU ) 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 ) -c Diagnostic Counters -c ------------------- +C Diagnostic Counters +C ------------------- EQUIVALENCE ( NDIAG( 1) , NUFLUX ) EQUIVALENCE ( NDIAG( 2) , NVFLUX ) EQUIVALENCE ( NDIAG( 3) , NHFLUX ) @@ -1739,68 +1429,6 @@ EQUIVALENCE ( NDIAG(235), NGWCVS ) EQUIVALENCE ( NDIAG(236), NGWCU ) 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 ) C diagnostics common