/[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.3 by molod, Thu Feb 26 02:21:18 2004 UTC revision 1.16 by molod, Mon Jul 19 19:10:14 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  C ======================================================================  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
# Line 262  C diagarrays common Line 265  C diagarrays common
265        CHARACTER*8   CGWCVS        CHARACTER*8   CGWCVS
266        CHARACTER*8   CGWCU        CHARACTER*8   CGWCU
267        CHARACTER*8   CGWCV        CHARACTER*8   CGWCV
268          CHARACTER*8   CETAN
269          CHARACTER*8   CETANSQ
270          CHARACTER*8   CTHETA
271          CHARACTER*8   CSALT
272          CHARACTER*8   CUVEL
273          CHARACTER*8   CVVEL
274          CHARACTER*8   CWVEL
275          CHARACTER*8   CTHETASQ
276          CHARACTER*8   CSALTSQ
277          CHARACTER*8   CUVELSQ
278          CHARACTER*8   CVVELSQ
279          CHARACTER*8   CWVELSQ
280          CHARACTER*8   CUVELVVEL
281          CHARACTER*8   CUVELMASS
282          CHARACTER*8   CVVELMASS
283          CHARACTER*8   CWVELMASS
284          CHARACTER*8   CUTHMASS
285          CHARACTER*8   CVTHMASS
286          CHARACTER*8   CWTHMASS
287          CHARACTER*8   CUSLTMASS
288          CHARACTER*8   CVSLTMASS
289          CHARACTER*8   CWSLTMASS
290          CHARACTER*8   CUVELTH
291          CHARACTER*8   CVVELTH
292          CHARACTER*8   CWVELTH
293          CHARACTER*8   CUVELSLT
294          CHARACTER*8   CVVELSLT
295          CHARACTER*8   CWVELSLT
296          CHARACTER*8   CUTRAC1
297          CHARACTER*8   CVTRAC1
298          CHARACTER*8   CWTRAC1
299          CHARACTER*8   CUTRAC2
300          CHARACTER*8   CVTRAC2
301          CHARACTER*8   CWTRAC2
302          CHARACTER*8   CUTRAC3
303          CHARACTER*8   CVTRAC3
304          CHARACTER*8   CWTRAC3
305          CHARACTER*8   CUTRAC4
306          CHARACTER*8   CVTRAC4
307          CHARACTER*8   CWTRAC4
308          CHARACTER*8   CUTRAC5
309          CHARACTER*8   CVTRAC5
310          CHARACTER*8   CWTRAC5
311          CHARACTER*8   CTRAC1  
312          CHARACTER*8   CTRAC2  
313          CHARACTER*8   CTRAC3  
314          CHARACTER*8   CTRAC4  
315          CHARACTER*8   CTRAC5  
316          CHARACTER*8   CDICBIOA
317          CHARACTER*8   CDICCARB
318          CHARACTER*8   CDICTFLX
319          CHARACTER*8   CDICOFLX
320          CHARACTER*8   CDICCFLX
321          CHARACTER*8   CDICPCO2
322          CHARACTER*8   CDICPHAV
323          CHARACTER*8   CDTCONV
324          CHARACTER*8   CDQCONV
325          CHARACTER*8   CRELHUM
326          CHARACTER*8   CPRECLS
327          CHARACTER*8   CENPREC
328          CHARACTER*8   CVISCA4
329    
330        EQUIVALENCE ( CDIAG( 1) ,  CUFLUX  )        EQUIVALENCE ( CDIAG( 1) ,  CUFLUX  )
331        EQUIVALENCE ( CDIAG( 2) ,  CVFLUX  )        EQUIVALENCE ( CDIAG( 2) ,  CVFLUX  )
# Line 492  C diagarrays common Line 556  C diagarrays common
556        EQUIVALENCE ( CDIAG(235),  CGWCVS    )        EQUIVALENCE ( CDIAG(235),  CGWCVS    )
557        EQUIVALENCE ( CDIAG(236),  CGWCU     )        EQUIVALENCE ( CDIAG(236),  CGWCU     )
558        EQUIVALENCE ( CDIAG(237),  CGWCV     )        EQUIVALENCE ( CDIAG(237),  CGWCV     )
559          EQUIVALENCE ( CDIAG(238),  CETAN     )
560          EQUIVALENCE ( CDIAG(239),  CETANSQ   )
561          EQUIVALENCE ( CDIAG(240),  CTHETA    )
562          EQUIVALENCE ( CDIAG(241),  CSALT     )
563          EQUIVALENCE ( CDIAG(242),  CUVEL     )
564          EQUIVALENCE ( CDIAG(243),  CVVEL     )
565          EQUIVALENCE ( CDIAG(244),  CWVEL     )
566          EQUIVALENCE ( CDIAG(245),  CTHETASQ  )
567          EQUIVALENCE ( CDIAG(246),  CSALTSQ   )
568          EQUIVALENCE ( CDIAG(247),  CUVELSQ   )
569          EQUIVALENCE ( CDIAG(248),  CVVELSQ   )
570          EQUIVALENCE ( CDIAG(249),  CWVELSQ   )
571          EQUIVALENCE ( CDIAG(250),  CUVELVVEL )
572          EQUIVALENCE ( CDIAG(251),  CUVELMASS )
573          EQUIVALENCE ( CDIAG(252),  CVVELMASS )
574          EQUIVALENCE ( CDIAG(253),  CWVELMASS )
575          EQUIVALENCE ( CDIAG(254),  CUTHMASS  )
576          EQUIVALENCE ( CDIAG(255),  CVTHMASS  )
577          EQUIVALENCE ( CDIAG(256),  CWTHMASS  )
578          EQUIVALENCE ( CDIAG(257),  CUSLTMASS )
579          EQUIVALENCE ( CDIAG(258),  CVSLTMASS )
580          EQUIVALENCE ( CDIAG(259),  CWSLTMASS )
581          EQUIVALENCE ( CDIAG(260),  CUVELTH   )
582          EQUIVALENCE ( CDIAG(261),  CVVELTH   )
583          EQUIVALENCE ( CDIAG(262),  CWVELTH   )
584          EQUIVALENCE ( CDIAG(263),  CUVELSLT  )
585          EQUIVALENCE ( CDIAG(264),  CVVELSLT  )
586          EQUIVALENCE ( CDIAG(265),  CWVELSLT  )
587          EQUIVALENCE ( CDIAG(266),  CUTRAC1   )
588          EQUIVALENCE ( CDIAG(267),  CVTRAC1   )
589          EQUIVALENCE ( CDIAG(268),  CWTRAC1   )
590          EQUIVALENCE ( CDIAG(269),  CUTRAC2   )
591          EQUIVALENCE ( CDIAG(270),  CVTRAC2   )
592          EQUIVALENCE ( CDIAG(271),  CWTRAC2   )
593          EQUIVALENCE ( CDIAG(272),  CUTRAC3   )
594          EQUIVALENCE ( CDIAG(273),  CVTRAC3   )
595          EQUIVALENCE ( CDIAG(274),  CWTRAC3   )
596          EQUIVALENCE ( CDIAG(275),  CUTRAC4   )
597          EQUIVALENCE ( CDIAG(276),  CVTRAC4   )
598          EQUIVALENCE ( CDIAG(277),  CWTRAC4   )
599          EQUIVALENCE ( CDIAG(278),  CUTRAC5   )
600          EQUIVALENCE ( CDIAG(279),  CVTRAC5   )
601          EQUIVALENCE ( CDIAG(280),  CWTRAC5   )
602          EQUIVALENCE ( CDIAG(281),  CTRAC1    )
603          EQUIVALENCE ( CDIAG(282),  CTRAC2    )
604          EQUIVALENCE ( CDIAG(283),  CTRAC3    )
605          EQUIVALENCE ( CDIAG(284),  CTRAC4    )
606          EQUIVALENCE ( CDIAG(285),  CTRAC5    )
607          EQUIVALENCE ( CDIAG(286),  CDICBIOA  )
608          EQUIVALENCE ( CDIAG(287),  CDICCARB  )
609          EQUIVALENCE ( CDIAG(288),  CDICTFLX  )
610          EQUIVALENCE ( CDIAG(289),  CDICOFLX  )
611          EQUIVALENCE ( CDIAG(290),  CDICCFLX  )
612          EQUIVALENCE ( CDIAG(291),  CDICPCO2  )
613          EQUIVALENCE ( CDIAG(292),  CDICPHAV  )
614          EQUIVALENCE ( CDIAG(293),  CDTCONV   )
615          EQUIVALENCE ( CDIAG(294),  CDQCONV   )
616          EQUIVALENCE ( CDIAG(295),  CRELHUM   )
617          EQUIVALENCE ( CDIAG(296),  CPRECLS   )
618          EQUIVALENCE ( CDIAG(297),  CENPREC   )
619          EQUIVALENCE ( CDIAG(298),  CVISCA4   )
620    
621        integer       iUFLUX   , kUFLUX   , nUFLUX        integer       iUFLUX   , kUFLUX   , nUFLUX
622        integer       iVFLUX   , kVFLUX   , nVFLUX        integer       iVFLUX   , kVFLUX   , nVFLUX
# Line 722  C diagarrays common Line 847  C diagarrays common
847        integer       iGWCVS   , kGWCVS   , nGWCVS        integer       iGWCVS   , kGWCVS   , nGWCVS
848        integer       iGWCU    , kGWCU    , nGWCU        integer       iGWCU    , kGWCU    , nGWCU
849        integer       iGWCV    , kGWCV    , nGWCV        integer       iGWCV    , kGWCV    , nGWCV
850          integer       iETAN    , kETAN    , nETAN
851          integer       iETANSQ  , kETANSQ  , nETANSQ
852          integer       iTHETA   , kTHETA   , nTHETA
853          integer       iSALT    , kSALT    , nSALT  
854          integer       iUVEL    , kUVEL    , nUVEL  
855          integer       iVVEL    , kVVEL    , nVVEL  
856          integer       iWVEL    , kWVEL    , nWVEL  
857          integer       iTHETASQ , kTHETASQ , nTHETASQ
858          integer       iSALTSQ  , kSALTSQ  , nSALTSQ
859          integer       iUVELSQ  , kUVELSQ  , nUVELSQ
860          integer       iVVELSQ  , kVVELSQ  , nVVELSQ
861          integer       iWVELSQ  , kWVELSQ  , nWVELSQ  
862          integer       iUVELVVEL, kUVELVVEL, nUVELVVEL
863          integer       iUVELMASS, kUVELMASS, nUVELMASS
864          integer       iVVELMASS, kVVELMASS, nVVELMASS
865          integer       iWVELMASS, kWVELMASS, nWVELMASS
866          integer       iUTHMASS , kUTHMASS,  nUTHMASS
867          integer       iVTHMASS , kVTHMASS,  nVTHMASS
868          integer       iWTHMASS , kWTHMASS,  nWTHMASS
869          integer       iUSLTMASS, kUSLTMASS, nUSLTMASS
870          integer       iVSLTMASS, kVSLTMASS, nVSLTMASS
871          integer       iWSLTMASS, kWSLTMASS, nWSLTMASS
872          integer       iUVELTH  , kUVELTH,   nUVELTH
873          integer       iVVELTH  , kVVELTH,   nVVELTH
874          integer       iWVELTH  , kWVELTH,   nWVELTH
875          integer       iUVELSLT , kUVELSLT,  nUVELSLT
876          integer       iVVELSLT , kVVELSLT,  nVVELSLT
877          integer       iWVELSLT , kWVELSLT,  nWVELSLT
878          integer       iUTRAC1  , kUTRAC1,   nUTRAC1
879          integer       iVTRAC1  , kVTRAC1,   nVTRAC1
880          integer       iWTRAC1  , kWTRAC1,   nWTRAC1
881          integer       iUTRAC2  , kUTRAC2,   nUTRAC2
882          integer       iVTRAC2  , kVTRAC2,   nVTRAC2
883          integer       iWTRAC2  , kWTRAC2,   nWTRAC2
884          integer       iUTRAC3  , kUTRAC3,   nUTRAC3
885          integer       iVTRAC3  , kVTRAC3,   nVTRAC3
886          integer       iWTRAC3  , kWTRAC3,   nWTRAC3
887          integer       iUTRAC4  , kUTRAC4,   nUTRAC4
888          integer       iVTRAC4  , kVTRAC4,   nVTRAC4
889          integer       iWTRAC4  , kWTRAC4,   nWTRAC4
890          integer       iUTRAC5  , kUTRAC5,   nUTRAC5
891          integer       iVTRAC5  , kVTRAC5,   nVTRAC5
892          integer       iWTRAC5  , kWTRAC5,   nWTRAC5
893          integer       iTRAC1   , kTRAC1 ,   nTRAC1
894          integer       iTRAC2   , kTRAC2 ,   nTRAC2
895          integer       iTRAC3   , kTRAC3 ,   nTRAC3
896          integer       iTRAC4   , kTRAC4 ,   nTRAC4
897          integer       iTRAC5   , kTRAC5 ,   nTRAC5
898          integer       iDICBIOA , kDICBIOA , nDICBIOA
899          integer       iDICCARB , kDICCARB , nDICCARB
900          integer       iDICTFLX , kDICTFLX , nDICTFLX
901          integer       iDICOFLX , kDICOFLX , nDICOFLX
902          integer       iDICCFLX , kDICCFLX , nDICCFLX
903          integer       iDICPCO2 , kDICPCO2 , nDICPCO2
904          integer       iDICPHAV , kDICPHAV , nDICPHAV
905          integer       iDTCONV  , kDTCONV ,  nDTCONV
906          integer       iDQCONV  , kDQCONV ,  nDQCONV
907          integer       iRELHUM  , kRELHUM ,  nRELHUM
908          integer       iPRECLS  , kPRECLS ,  nPRECLS
909          integer       iENPREC  , kENPREC ,  nENPREC
910          integer       iVISCA4  , kVISCA4 ,  nVISCA4
911    
912    
913  c Diagnostic Pointers  c Diagnostic Pointers
# Line 955  c ------------------- Line 1141  c -------------------
1141        EQUIVALENCE ( IDIAG(235),  IGWCVS    )        EQUIVALENCE ( IDIAG(235),  IGWCVS    )
1142        EQUIVALENCE ( IDIAG(236),  IGWCU     )        EQUIVALENCE ( IDIAG(236),  IGWCU     )
1143        EQUIVALENCE ( IDIAG(237),  IGWCV     )        EQUIVALENCE ( IDIAG(237),  IGWCV     )
1144          EQUIVALENCE ( IDIAG(238),  IETAN     )
1145          EQUIVALENCE ( IDIAG(239),  IETANSQ   )
1146          EQUIVALENCE ( IDIAG(240),  ITHETA    )
1147          EQUIVALENCE ( IDIAG(241),  ISALT     )
1148          EQUIVALENCE ( IDIAG(242),  IUVEL     )
1149          EQUIVALENCE ( IDIAG(243),  IVVEL     )
1150          EQUIVALENCE ( IDIAG(244),  IWVEL     )
1151          EQUIVALENCE ( IDIAG(245),  ITHETASQ  )
1152          EQUIVALENCE ( IDIAG(246),  ISALTSQ   )
1153          EQUIVALENCE ( IDIAG(247),  IUVELSQ   )
1154          EQUIVALENCE ( IDIAG(248),  IVVELSQ   )
1155          EQUIVALENCE ( IDIAG(249),  IWVELSQ   )
1156          EQUIVALENCE ( IDIAG(250),  IUVELVVEL )
1157          EQUIVALENCE ( IDIAG(251),  IUVELMASS )
1158          EQUIVALENCE ( IDIAG(252),  IVVELMASS )
1159          EQUIVALENCE ( IDIAG(253),  IWVELMASS )
1160          EQUIVALENCE ( IDIAG(254),  IUTHMASS  )
1161          EQUIVALENCE ( IDIAG(255),  IVTHMASS  )
1162          EQUIVALENCE ( IDIAG(256),  IWTHMASS  )
1163          EQUIVALENCE ( IDIAG(257),  IUSLTMASS )
1164          EQUIVALENCE ( IDIAG(258),  IVSLTMASS )
1165          EQUIVALENCE ( IDIAG(259),  IWSLTMASS )
1166          EQUIVALENCE ( IDIAG(260),  IUVELTH   )
1167          EQUIVALENCE ( IDIAG(261),  IVVELTH   )
1168          EQUIVALENCE ( IDIAG(262),  IWVELTH   )
1169          EQUIVALENCE ( IDIAG(263),  IUVELSLT  )
1170          EQUIVALENCE ( IDIAG(264),  IVVELSLT  )
1171          EQUIVALENCE ( IDIAG(265),  IWVELSLT  )
1172          EQUIVALENCE ( IDIAG(266),  IUTRAC1   )
1173          EQUIVALENCE ( IDIAG(267),  IVTRAC1   )
1174          EQUIVALENCE ( IDIAG(268),  IWTRAC1   )
1175          EQUIVALENCE ( IDIAG(269),  IUTRAC2   )
1176          EQUIVALENCE ( IDIAG(270),  IVTRAC2   )
1177          EQUIVALENCE ( IDIAG(271),  IWTRAC2   )
1178          EQUIVALENCE ( IDIAG(272),  IUTRAC3   )
1179          EQUIVALENCE ( IDIAG(273),  IVTRAC3   )
1180          EQUIVALENCE ( IDIAG(274),  IWTRAC3   )
1181          EQUIVALENCE ( IDIAG(275),  IUTRAC4   )
1182          EQUIVALENCE ( IDIAG(276),  IVTRAC4   )
1183          EQUIVALENCE ( IDIAG(277),  IWTRAC4   )
1184          EQUIVALENCE ( IDIAG(278),  IUTRAC5   )
1185          EQUIVALENCE ( IDIAG(279),  IVTRAC5   )
1186          EQUIVALENCE ( IDIAG(280),  IWTRAC5   )
1187          EQUIVALENCE ( IDIAG(281),  ITRAC1    )
1188          EQUIVALENCE ( IDIAG(282),  ITRAC2    )
1189          EQUIVALENCE ( IDIAG(283),  ITRAC3    )
1190          EQUIVALENCE ( IDIAG(284),  ITRAC4    )
1191          EQUIVALENCE ( IDIAG(285),  ITRAC5    )
1192          EQUIVALENCE ( IDIAG(286),  IDICBIOA  )
1193          EQUIVALENCE ( IDIAG(287),  IDICCARB  )
1194          EQUIVALENCE ( IDIAG(288),  IDICTFLX  )
1195          EQUIVALENCE ( IDIAG(289),  IDICOFLX  )
1196          EQUIVALENCE ( IDIAG(290),  IDICCFLX  )
1197          EQUIVALENCE ( IDIAG(291),  IDICPCO2  )
1198          EQUIVALENCE ( IDIAG(292),  IDICPHAV  )
1199          EQUIVALENCE ( IDIAG(293),  IDTCONV   )
1200          EQUIVALENCE ( IDIAG(294),  IDQCONV   )
1201          EQUIVALENCE ( IDIAG(295),  IRELHUM   )
1202          EQUIVALENCE ( IDIAG(296),  IPRECLS   )
1203          EQUIVALENCE ( IDIAG(297),  IENPREC   )
1204          EQUIVALENCE ( IDIAG(298),  IVISCA4   )
1205    
1206    
1207  c Diagnostic Levels  c Diagnostic Levels
# Line 1188  c ----------------- Line 1435  c -----------------
1435        EQUIVALENCE ( KDIAG(235),  KGWCVS    )        EQUIVALENCE ( KDIAG(235),  KGWCVS    )
1436        EQUIVALENCE ( KDIAG(236),  KGWCU     )        EQUIVALENCE ( KDIAG(236),  KGWCU     )
1437        EQUIVALENCE ( KDIAG(237),  KGWCV     )        EQUIVALENCE ( KDIAG(237),  KGWCV     )
1438          EQUIVALENCE ( KDIAG(238),  KETAN     )
1439          EQUIVALENCE ( KDIAG(239),  KETANSQ   )
1440          EQUIVALENCE ( KDIAG(240),  KTHETA    )
1441          EQUIVALENCE ( KDIAG(241),  KSALT     )
1442          EQUIVALENCE ( KDIAG(242),  KUVEL     )
1443          EQUIVALENCE ( KDIAG(243),  KVVEL     )
1444          EQUIVALENCE ( KDIAG(244),  KWVEL     )
1445          EQUIVALENCE ( KDIAG(245),  KTHETASQ  )
1446          EQUIVALENCE ( KDIAG(246),  KSALTSQ   )
1447          EQUIVALENCE ( KDIAG(247),  KUVELSQ   )
1448          EQUIVALENCE ( KDIAG(248),  KVVELSQ   )
1449          EQUIVALENCE ( KDIAG(249),  KWVELSQ   )
1450          EQUIVALENCE ( KDIAG(250),  KUVELVVEL )
1451          EQUIVALENCE ( KDIAG(251),  KUVELMASS )
1452          EQUIVALENCE ( KDIAG(252),  KVVELMASS )
1453          EQUIVALENCE ( KDIAG(253),  KWVELMASS )
1454          EQUIVALENCE ( KDIAG(254),  KUTHMASS  )
1455          EQUIVALENCE ( KDIAG(255),  KVTHMASS  )
1456          EQUIVALENCE ( KDIAG(256),  KWTHMASS  )
1457          EQUIVALENCE ( KDIAG(257),  KUSLTMASS )
1458          EQUIVALENCE ( KDIAG(258),  KVSLTMASS )
1459          EQUIVALENCE ( KDIAG(259),  KWSLTMASS )
1460          EQUIVALENCE ( KDIAG(260),  KUVELTH   )
1461          EQUIVALENCE ( KDIAG(261),  KVVELTH   )
1462          EQUIVALENCE ( KDIAG(262),  KWVELTH   )
1463          EQUIVALENCE ( KDIAG(263),  KUVELSLT  )
1464          EQUIVALENCE ( KDIAG(264),  KVVELSLT  )
1465          EQUIVALENCE ( KDIAG(265),  KWVELSLT  )
1466          EQUIVALENCE ( KDIAG(266),  KUTRAC1   )
1467          EQUIVALENCE ( KDIAG(267),  KVTRAC1   )
1468          EQUIVALENCE ( KDIAG(268),  KWTRAC1   )
1469          EQUIVALENCE ( KDIAG(269),  KUTRAC2   )
1470          EQUIVALENCE ( KDIAG(270),  KVTRAC2   )
1471          EQUIVALENCE ( KDIAG(271),  KWTRAC2   )
1472          EQUIVALENCE ( KDIAG(272),  KUTRAC3   )
1473          EQUIVALENCE ( KDIAG(273),  KVTRAC3   )
1474          EQUIVALENCE ( KDIAG(274),  KWTRAC3   )
1475          EQUIVALENCE ( KDIAG(275),  KUTRAC4   )
1476          EQUIVALENCE ( KDIAG(276),  KVTRAC4   )
1477          EQUIVALENCE ( KDIAG(277),  KWTRAC4   )
1478          EQUIVALENCE ( KDIAG(278),  KUTRAC5   )
1479          EQUIVALENCE ( KDIAG(279),  KVTRAC5   )
1480          EQUIVALENCE ( KDIAG(280),  KWTRAC5   )
1481          EQUIVALENCE ( KDIAG(281),  KTRAC1    )
1482          EQUIVALENCE ( KDIAG(282),  KTRAC2    )
1483          EQUIVALENCE ( KDIAG(283),  KTRAC3    )
1484          EQUIVALENCE ( KDIAG(284),  KTRAC4    )
1485          EQUIVALENCE ( KDIAG(285),  KTRAC5    )
1486          EQUIVALENCE ( KDIAG(286),  KDICBIOA  )
1487          EQUIVALENCE ( KDIAG(287),  KDICCARB  )
1488          EQUIVALENCE ( KDIAG(288),  KDICTFLX  )
1489          EQUIVALENCE ( KDIAG(289),  KDICOFLX  )
1490          EQUIVALENCE ( KDIAG(290),  KDICCFLX  )
1491          EQUIVALENCE ( KDIAG(291),  KDICPCO2  )
1492          EQUIVALENCE ( KDIAG(292),  KDICPHAV  )
1493          EQUIVALENCE ( KDIAG(293),  KDTCONV   )
1494          EQUIVALENCE ( KDIAG(294),  KDQCONV   )
1495          EQUIVALENCE ( KDIAG(295),  KRELHUM   )
1496          EQUIVALENCE ( KDIAG(296),  KPRECLS   )
1497          EQUIVALENCE ( KDIAG(297),  KENPREC   )
1498          EQUIVALENCE ( KDIAG(298),  KVISCA4   )
1499    
1500    
1501  c Diagnostic Counters  c Diagnostic Counters
# Line 1421  c ------------------- Line 1729  c -------------------
1729        EQUIVALENCE ( NDIAG(235),  NGWCVS    )        EQUIVALENCE ( NDIAG(235),  NGWCVS    )
1730        EQUIVALENCE ( NDIAG(236),  NGWCU     )        EQUIVALENCE ( NDIAG(236),  NGWCU     )
1731        EQUIVALENCE ( NDIAG(237),  NGWCV     )        EQUIVALENCE ( NDIAG(237),  NGWCV     )
1732          EQUIVALENCE ( NDIAG(238),  NETAN     )
1733          EQUIVALENCE ( NDIAG(239),  NETANSQ   )
1734          EQUIVALENCE ( NDIAG(240),  NTHETA    )
1735          EQUIVALENCE ( NDIAG(241),  NSALT     )
1736          EQUIVALENCE ( NDIAG(242),  NUVEL     )
1737          EQUIVALENCE ( NDIAG(243),  NVVEL     )
1738          EQUIVALENCE ( NDIAG(244),  NWVEL     )
1739          EQUIVALENCE ( NDIAG(245),  NTHETASQ  )
1740          EQUIVALENCE ( NDIAG(246),  NSALTSQ   )
1741          EQUIVALENCE ( NDIAG(247),  NUVELSQ   )
1742          EQUIVALENCE ( NDIAG(248),  NVVELSQ   )
1743          EQUIVALENCE ( NDIAG(249),  NWVELSQ   )
1744          EQUIVALENCE ( NDIAG(250),  NUVELVVEL )
1745          EQUIVALENCE ( NDIAG(251),  NUVELMASS )
1746          EQUIVALENCE ( NDIAG(252),  NVVELMASS )
1747          EQUIVALENCE ( NDIAG(253),  NWVELMASS )
1748          EQUIVALENCE ( NDIAG(254),  NUTHMASS  )
1749          EQUIVALENCE ( NDIAG(255),  NVTHMASS  )
1750          EQUIVALENCE ( NDIAG(256),  NWTHMASS  )
1751          EQUIVALENCE ( NDIAG(257),  NUSLTMASS )
1752          EQUIVALENCE ( NDIAG(258),  NVSLTMASS )
1753          EQUIVALENCE ( NDIAG(259),  NWSLTMASS )
1754          EQUIVALENCE ( NDIAG(260),  NUVELTH   )
1755          EQUIVALENCE ( NDIAG(261),  NVVELTH   )
1756          EQUIVALENCE ( NDIAG(262),  NWVELTH   )
1757          EQUIVALENCE ( NDIAG(263),  NUVELSLT  )
1758          EQUIVALENCE ( NDIAG(264),  NVVELSLT  )
1759          EQUIVALENCE ( NDIAG(265),  NWVELSLT  )
1760          EQUIVALENCE ( NDIAG(266),  NUTRAC1   )
1761          EQUIVALENCE ( NDIAG(267),  NVTRAC1   )
1762          EQUIVALENCE ( NDIAG(268),  NWTRAC1   )
1763          EQUIVALENCE ( NDIAG(269),  NUTRAC2   )
1764          EQUIVALENCE ( NDIAG(270),  NVTRAC2   )
1765          EQUIVALENCE ( NDIAG(271),  NWTRAC2   )
1766          EQUIVALENCE ( NDIAG(272),  NUTRAC3   )
1767          EQUIVALENCE ( NDIAG(273),  NVTRAC3   )
1768          EQUIVALENCE ( NDIAG(274),  NWTRAC3   )
1769          EQUIVALENCE ( NDIAG(275),  NUTRAC4   )
1770          EQUIVALENCE ( NDIAG(276),  NVTRAC4   )
1771          EQUIVALENCE ( NDIAG(277),  NWTRAC4   )
1772          EQUIVALENCE ( NDIAG(278),  NUTRAC5   )
1773          EQUIVALENCE ( NDIAG(279),  NVTRAC5   )
1774          EQUIVALENCE ( NDIAG(280),  NWTRAC5   )
1775          EQUIVALENCE ( NDIAG(281),  NTRAC1    )
1776          EQUIVALENCE ( NDIAG(282),  NTRAC2    )
1777          EQUIVALENCE ( NDIAG(283),  NTRAC3    )
1778          EQUIVALENCE ( NDIAG(284),  NTRAC4    )
1779          EQUIVALENCE ( NDIAG(285),  NTRAC5    )
1780          EQUIVALENCE ( NDIAG(286),  NDICBIOA  )
1781          EQUIVALENCE ( NDIAG(287),  NDICCARB  )
1782          EQUIVALENCE ( NDIAG(288),  NDICTFLX  )
1783          EQUIVALENCE ( NDIAG(289),  NDICOFLX  )
1784          EQUIVALENCE ( NDIAG(290),  NDICCFLX  )
1785          EQUIVALENCE ( NDIAG(291),  NDICPCO2  )
1786          EQUIVALENCE ( NDIAG(292),  NDICPHAV  )
1787          EQUIVALENCE ( NDIAG(293),  NDTCONV   )
1788          EQUIVALENCE ( NDIAG(294),  NDQCONV   )
1789          EQUIVALENCE ( NDIAG(295),  NRELHUM   )
1790          EQUIVALENCE ( NDIAG(296),  NPRECLS   )
1791          EQUIVALENCE ( NDIAG(297),  NENPREC   )
1792          EQUIVALENCE ( NDIAG(298),  NVISCA4   )
1793    
1794    
1795  C diagnostics common  C diagnostics common
# Line 1440  C diag_choices common Line 1809  C diag_choices common
1809        integer nfields(numlists)        integer nfields(numlists)
1810        _RL levs (numperlist,numlists)        _RL levs (numperlist,numlists)
1811        character*8 flds (numperlist,numlists)        character*8 flds (numperlist,numlists)
1812        character*80 fnames(numlists)        character*8 fnames(numlists)
1813          logical diag_use_mdsio
1814          logical diag_use_mnc
1815    
1816          common /diag_choices/
1817         &     levs, flds, fnames, freq, nlevels, nfields, nlists,
1818         &     diag_use_mdsio, diag_use_mnc
1819    
       common /diag_choices/ levs,flds,fnames,freq,nlevels,nfields,nlists  
1820    
1821    CEH3 ;;; Local Variables: ***
1822    CEH3 ;;; mode:fortran ***
1823    CEH3 ;;; End: ***
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22