14 |
C udiag - physical units of the diagnostic field |
C udiag - physical units of the diagnostic field |
15 |
C - diagnostics contains the large array containing diagnostic fields |
C - diagnostics contains the large array containing diagnostic fields |
16 |
C qdiag - diagnostic fields array |
C qdiag - diagnostic fields array |
17 |
|
C qSdiag - storage array for diagnostics of (per level) statistics |
18 |
|
C - diag_choices contains the user-chosen list of fields to store |
19 |
C jdiag - short-list (active diag.) to long-list (available diag.) |
C jdiag - short-list (active diag.) to long-list (available diag.) |
20 |
C pointer |
C pointer |
21 |
C - diag_choices contains the user-chosen list of fields to store |
C - diag_statis contains the user-chosen list of statistics to store |
22 |
C ====================================================================== |
C ====================================================================== |
23 |
|
|
24 |
C diagarrays common |
C diagarrays common |
29 |
integer idiag(ndiagMax) |
integer idiag(ndiagMax) |
30 |
integer kdiag(ndiagMax) |
integer kdiag(ndiagMax) |
31 |
integer ndiag(ndiagMax) |
integer ndiag(ndiagMax) |
32 |
integer mdiag(ndiagMax) |
c integer mdiag(ndiagMax) |
33 |
character*80 tdiag(ndiagMax) |
character*80 tdiag(ndiagMax) |
34 |
character*16 gdiag(ndiagMax) |
character*16 gdiag(ndiagMax) |
35 |
character*16 udiag(ndiagMax) |
character*16 udiag(ndiagMax) |
39 |
common /diagarrays/ idiag |
common /diagarrays/ idiag |
40 |
common /diagarrays/ kdiag |
common /diagarrays/ kdiag |
41 |
common /diagarrays/ ndiag |
common /diagarrays/ ndiag |
42 |
common /diagarrays/ mdiag |
c common /diagarrays/ mdiag |
43 |
common /diagarrays/ tdiag |
common /diagarrays/ tdiag |
44 |
common /diagarrays/ gdiag |
common /diagarrays/ gdiag |
45 |
common /diagarrays/ udiag |
common /diagarrays/ udiag |
272 |
CHARACTER*8 CGWCVS |
CHARACTER*8 CGWCVS |
273 |
CHARACTER*8 CGWCU |
CHARACTER*8 CGWCU |
274 |
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 |
|
275 |
|
|
276 |
EQUIVALENCE ( CDIAG( 1) , CUFLUX ) |
EQUIVALENCE ( CDIAG( 1) , CUFLUX ) |
277 |
EQUIVALENCE ( CDIAG( 2) , CVFLUX ) |
EQUIVALENCE ( CDIAG( 2) , CVFLUX ) |
502 |
EQUIVALENCE ( CDIAG(235), CGWCVS ) |
EQUIVALENCE ( CDIAG(235), CGWCVS ) |
503 |
EQUIVALENCE ( CDIAG(236), CGWCU ) |
EQUIVALENCE ( CDIAG(236), CGWCU ) |
504 |
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 ) |
|
505 |
|
|
506 |
integer iUFLUX , kUFLUX , nUFLUX |
integer iUFLUX , kUFLUX , nUFLUX |
507 |
integer iVFLUX , kVFLUX , nVFLUX |
integer iVFLUX , kVFLUX , nVFLUX |
732 |
integer iGWCVS , kGWCVS , nGWCVS |
integer iGWCVS , kGWCVS , nGWCVS |
733 |
integer iGWCU , kGWCU , nGWCU |
integer iGWCU , kGWCU , nGWCU |
734 |
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 |
|
735 |
|
|
736 |
|
|
737 |
c Diagnostic Pointers |
C Diagnostic Pointers |
738 |
c ------------------- |
C ------------------- |
739 |
EQUIVALENCE ( IDIAG( 1) , IUFLUX ) |
EQUIVALENCE ( IDIAG( 1) , IUFLUX ) |
740 |
EQUIVALENCE ( IDIAG( 2) , IVFLUX ) |
EQUIVALENCE ( IDIAG( 2) , IVFLUX ) |
741 |
EQUIVALENCE ( IDIAG( 3) , IHFLUX ) |
EQUIVALENCE ( IDIAG( 3) , IHFLUX ) |
965 |
EQUIVALENCE ( IDIAG(235), IGWCVS ) |
EQUIVALENCE ( IDIAG(235), IGWCVS ) |
966 |
EQUIVALENCE ( IDIAG(236), IGWCU ) |
EQUIVALENCE ( IDIAG(236), IGWCU ) |
967 |
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 ) |
|
968 |
|
|
969 |
|
|
970 |
c Diagnostic Levels |
C Diagnostic Levels |
971 |
c ----------------- |
C ----------------- |
972 |
EQUIVALENCE ( KDIAG( 1) , KUFLUX ) |
EQUIVALENCE ( KDIAG( 1) , KUFLUX ) |
973 |
EQUIVALENCE ( KDIAG( 2) , KVFLUX ) |
EQUIVALENCE ( KDIAG( 2) , KVFLUX ) |
974 |
EQUIVALENCE ( KDIAG( 3) , KHFLUX ) |
EQUIVALENCE ( KDIAG( 3) , KHFLUX ) |
1198 |
EQUIVALENCE ( KDIAG(235), KGWCVS ) |
EQUIVALENCE ( KDIAG(235), KGWCVS ) |
1199 |
EQUIVALENCE ( KDIAG(236), KGWCU ) |
EQUIVALENCE ( KDIAG(236), KGWCU ) |
1200 |
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 ) |
|
1201 |
|
|
1202 |
|
|
1203 |
c Diagnostic Counters |
C Diagnostic Counters |
1204 |
c ------------------- |
C ------------------- |
1205 |
EQUIVALENCE ( NDIAG( 1) , NUFLUX ) |
EQUIVALENCE ( NDIAG( 1) , NUFLUX ) |
1206 |
EQUIVALENCE ( NDIAG( 2) , NVFLUX ) |
EQUIVALENCE ( NDIAG( 2) , NVFLUX ) |
1207 |
EQUIVALENCE ( NDIAG( 3) , NHFLUX ) |
EQUIVALENCE ( NDIAG( 3) , NHFLUX ) |
1431 |
EQUIVALENCE ( NDIAG(235), NGWCVS ) |
EQUIVALENCE ( NDIAG(235), NGWCVS ) |
1432 |
EQUIVALENCE ( NDIAG(236), NGWCU ) |
EQUIVALENCE ( NDIAG(236), NGWCU ) |
1433 |
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 ) |
|
1434 |
|
|
1435 |
|
|
1436 |
C diagnostics common |
C diagnostics common |
1437 |
|
C qSdiag - storage array for (per level) statistics |
1438 |
|
|
1439 |
_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) |
1440 |
|
_RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy) |
1441 |
|
|
1442 |
common /diagnostics/ qdiag |
common /diagnostics/ qdiag, qSdiag |
1443 |
|
|
1444 |
|
|
1445 |
C diag_choices common |
C diag_choices common |
1446 |
|
C freq :: frequency (in s) to write output stream # n |
1447 |
|
C phase :: phase (in s) to write output stream # n |
1448 |
C nfields(n) :: number of active diagnostics for output stream # n |
C nfields(n) :: number of active diagnostics for output stream # n |
1449 |
C nActive(n) :: number of active diagnostics (including counters) |
C nActive(n) :: number of active diagnostics (including counters) |
1450 |
C for output stream # n |
C for output stream # n |
1451 |
|
C fflags(n) :: character string with per-file flags |
1452 |
|
|
1453 |
integer nlists |
integer nlists |
1454 |
|
|
1455 |
integer freq(numlists) |
_RL freq(numlists), phase(numlists) |
1456 |
integer nlevels(numlists) |
integer nlevels(numlists) |
1457 |
integer nfields(numlists) |
integer nfields(numlists) |
1458 |
integer nActive(numlists) |
integer nActive(numlists) |
1459 |
_RL levs (numLevels,numlists) |
_RL levs (numLevels,numlists) |
1460 |
integer jdiag(numperlist,numlists) |
integer jdiag(numperlist,numlists) |
1461 |
character*8 flds (numperlist,numlists) |
character*8 flds (numperlist,numlists) |
1462 |
character*8 fnames(numlists) |
character*80 fnames(numlists) |
1463 |
logical diag_mdsio |
character*8 fflags(numlists) |
1464 |
logical diag_mnc |
logical |
1465 |
|
& diag_mdsio, diag_mnc, |
1466 |
|
& diag_pickup_read, diag_pickup_write, |
1467 |
|
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
1468 |
|
& diag_pickup_read_mnc, diag_pickup_write_mnc |
1469 |
|
|
1470 |
common /diag_choices/ |
common /diag_choices/ |
1471 |
& levs, jdiag, flds, fnames, |
& freq, phase, levs, nlevels, |
1472 |
& freq, nlevels, nfields, nActive, nlists, |
& nfields, nActive, nlists, jdiag, |
1473 |
& diag_mdsio, diag_mnc |
& flds, fnames, fflags, |
1474 |
|
& diag_mdsio, diag_mnc, |
1475 |
|
& diag_pickup_read, diag_pickup_write, |
1476 |
|
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
1477 |
|
& diag_pickup_read_mnc, diag_pickup_write_mnc |
1478 |
|
|
1479 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
1480 |
|
|
1481 |
|
_RL diagSt_freq(numlists), diagSt_phase(numlists) |
1482 |
|
CHARACTER*8 diagSt_Flds(numperlist,numlists) |
1483 |
|
CHARACTER*80 diagSt_Fname(numlists) |
1484 |
|
INTEGER iSdiag(ndiagMax) |
1485 |
|
INTEGER jSdiag(numperlist,numlists) |
1486 |
|
INTEGER diagSt_region(0:nRegions,numlists) |
1487 |
|
INTEGER diagSt_nbFlds(numlists) |
1488 |
|
INTEGER diagSt_nbActv(numlists) |
1489 |
|
INTEGER diagSt_nbLists |
1490 |
|
INTEGER diagSt_ioUnit(numlists) |
1491 |
|
LOGICAL diagSt_ascii, diagSt_mnc |
1492 |
|
COMMON / DIAG_STATIS / |
1493 |
|
& diagSt_freq, diagSt_phase, |
1494 |
|
& diagSt_Flds, diagSt_Fname, |
1495 |
|
& iSdiag, jSdiag, diagSt_region, |
1496 |
|
& diagSt_nbFlds, diagSt_nbActv, diagSt_nbLists, |
1497 |
|
& diagSt_ioUnit, |
1498 |
|
& diagSt_Ascii, diagSt_mnc |
1499 |
|
|
1500 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
1501 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |