/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_init_vals.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_init_vals.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by molod, Thu Feb 26 19:52:05 2004 UTC revision 1.11 by molod, Wed Mar 24 21:27:00 2004 UTC
# Line 5  C *****  PURPOSE Line 5  C *****  PURPOSE
5  C *****    Initialize Diagnostic Names, Levels, and GPARMS           ****  C *****    Initialize Diagnostic Names, Levels, and GPARMS           ****
6  C *****                                                              ****  C *****                                                              ****
7  C *****                                                              ****  C *****                                                              ****
8  C *****  Note: GDIAG is define as character*16 and can be            ****  C *****  Note: GDIAG is defined as character*16 and can be           ****
9  C *****              equivalenced to character*1 parse(16)           ****  C *****              equivalenced to character*1 parse(16)           ****
10  C *****                                                              ****  C *****                                                              ****
11  C *****  parse(1)   => 'S' for a scalar diagnostic                   ****  C *****  parse(1)   => 'S' for a scalar diagnostic                   ****
# Line 15  C ***** Line 15  C *****
15  C *****  parse(2)   => 'U' for a C-grid U-Point                      ****  C *****  parse(2)   => 'U' for a C-grid U-Point                      ****
16  C *****             => 'V' for a C-grid V-Point                      ****  C *****             => 'V' for a C-grid V-Point                      ****
17  C *****             => 'M' for a C-grid Mass Point                   ****  C *****             => 'M' for a C-grid Mass Point                   ****
18  C *****             => 'Z' for a C-grid Vorticity Point              ****  C *****             => 'Z' for a C-grid Corner Point                 ****
19  C *****                                                              ****  C *****                                                              ****
20  C *****  parse(3)   => 'G' for a field on the geophysical grid       ****  C *****  parse(3)   => not used at present                           ****
21  C *****                                                              ****  C *****                                                              ****
22  C *****  parse(4)   => 'P' if diagnostic is positive definite        ****  C *****  parse(4)   => 'P' if diagnostic is positive definite        ****
23  C *****                                                              ****  C *****                                                              ****
# Line 26  C *****             => 'D' to disable an Line 26  C *****             => 'D' to disable an
26  C *****                                                              ****  C *****                                                              ****
27  C *****  parse(6-8) => 3-digit integer corresponding to vector       ****  C *****  parse(6-8) => 3-digit integer corresponding to vector       ****
28  C *****                component mate if parse(1) = 'U' or 'V'       ****  C *****                component mate if parse(1) = 'U' or 'V'       ****
29    C *****                or to the counter if parse(5)='C'             ****
30  C *****                                                              ****  C *****                                                              ****
31  C *****  parse(9)   => 'U' if defined at Model-level upper-edge      ****  C *****  parse(9)   => 'U' if defined at Model-level plus 1/2        ****
32  C *****             => 'M' if defined at Model-level middle          ****  C *****             => 'M' if defined at Model-level middle          ****
33  C *****             => 'L' if defined at Model-level lower-edge      ****  C *****             => 'L' if defined at Model-level minus 1/2       ****
34  C *****                                                              ****  C *****                                                              ****
35  C *****                                                              ****  C *****                                                              ****
36  C ***********************************************************************  C ***********************************************************************
# Line 38  C ************************************** Line 39  C **************************************
39  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
40  #include "SIZE.h"  #include "SIZE.h"
41    
42  #ifdef(ALLOW_FIZHI)then  #ifdef ALLOW_FIZHI
43  #include "fizhi_SIZE.h"  #include "fizhi_SIZE.h"
44  #else  #else
45         integer Nrphys         integer Nrphys
46         parameter (Nrphys=1)         parameter (Nrphys=0)
47  #endif  #endif
48    
49  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
# Line 51  C ************************************** Line 52  C **************************************
52        integer myThid        integer myThid
53        integer  n        integer  n
54    
55          do n=1,ndiagt
56          kdiag (n) = 0
57          cdiag(n) = '        '
58          gdiag(n) = '                '
59          udiag(n) = '                '
60          tdiag(n) = ' '
61          enddo
62    
63  c Diagnostic Names  c Diagnostic Names
64  c ----------------  c ----------------
65        cdiag( 1)  = 'UFLUX   '        cdiag( 1)  = 'UFLUX   '
# Line 106  c ---------------- Line 115  c ----------------
115        cdiag(51)  = 'CLDLOW  '        cdiag(51)  = 'CLDLOW  '
116        cdiag(52)  = 'EVAP    '        cdiag(52)  = 'EVAP    '
117        cdiag(53)  = 'DPDT    '        cdiag(53)  = 'DPDT    '
118        cdiag(54)  = 'UIAU    '        cdiag(54)  = 'UAVE    '
119        cdiag(55)  = 'VIAU    '        cdiag(55)  = 'VAVE    '
120        cdiag(56)  = 'TIAU    '        cdiag(56)  = 'TAVE    '
121        cdiag(57)  = 'QIAU    '        cdiag(57)  = 'QAVE    '
122        cdiag(58)  = 'OMEGA   '        cdiag(58)  = 'OMEGA   '
123        cdiag(59)  = 'DUDT    '        cdiag(59)  = 'DUDT    '
124        cdiag(60)  = 'DVDT    '        cdiag(60)  = 'DVDT    '
# Line 135  c ---------------- Line 144  c ----------------
144        cdiag(80)  = 'PS      '        cdiag(80)  = 'PS      '
145        cdiag(81)  = 'TKE     '        cdiag(81)  = 'TKE     '
146        cdiag(82)  = 'SWGCLR  '        cdiag(82)  = 'SWGCLR  '
147        cdiag(83)  = 'PIAU    '        cdiag(83)  = 'PAVE    '
148        cdiag(84)  = 'SDIAG1  '        cdiag(84)  = 'SDIAG1  '
149        cdiag(85)  = 'SDIAG2  '        cdiag(85)  = 'SDIAG2  '
150        cdiag(86)  = 'UDIAG1  '        cdiag(86)  = 'UDIAG1  '
# Line 170  c ---------------- Line 179  c ----------------
179        cdiag(115) = 'Q10M    '        cdiag(115) = 'Q10M    '
180        cdiag(116) = 'DTRAIN  '        cdiag(116) = 'DTRAIN  '
181        cdiag(117) = 'QFILL   '        cdiag(117) = 'QFILL   '
182        cdiag(118) = 'VAVEQIAU'        cdiag(118) = 'VAVEQAVE'
183        cdiag(119) = 'VAVEQFIL'        cdiag(119) = 'VAVEQFIL'
184        cdiag(120) = 'SHAPU   '        cdiag(120) = 'SHAPU   '
185        cdiag(121) = 'SHAPV   '        cdiag(121) = 'SHAPV   '
# Line 235  c ---------------- Line 244  c ----------------
244        cdiag(180) = 'VDTTURB '        cdiag(180) = 'VDTTURB '
245        cdiag(181) = 'VDTLWRAD'        cdiag(181) = 'VDTLWRAD'
246        cdiag(182) = 'VDTSWRAD'        cdiag(182) = 'VDTSWRAD'
247        cdiag(183) = 'VAVETIAU'        cdiag(183) = 'VAVETAVE'
248        cdiag(184) = 'PSUBCLD '        cdiag(184) = 'PSUBCLD '
249        cdiag(185) = 'PSUBCLDC'        cdiag(185) = 'PSUBCLDC'
250        cdiag(186) = 'LCL     '        cdiag(186) = 'LCL     '
# Line 290  c ---------------- Line 299  c ----------------
299        cdiag(235) = 'GWCVS   '        cdiag(235) = 'GWCVS   '
300        cdiag(236) = 'GWCU    '        cdiag(236) = 'GWCU    '
301        cdiag(237) = 'GWCV    '        cdiag(237) = 'GWCV    '
302          cdiag(238) = 'ETAN    '
303          cdiag(239) = 'ETANSQ  '
304          cdiag(240) = 'THETA   '
305          cdiag(241) = 'SALT    '
306          cdiag(242) = 'UVEL    '
307          cdiag(243) = 'VVEL    '
308          cdiag(244) = 'WVEL    '
309          cdiag(245) = 'THETASQ '
310          cdiag(246) = 'SALTSQ  '
311          cdiag(247) = 'UVELSQ  '
312          cdiag(248) = 'VVELSQ  '
313          cdiag(249) = 'WVELSQ  '
314          cdiag(250) = 'UVELVVEL'
315          cdiag(251) = 'UVELMASS'
316          cdiag(252) = 'VVELMASS'
317          cdiag(253) = 'WVELMASS'
318          cdiag(254) = 'UTHMASS '
319          cdiag(255) = 'VTHMASS '
320          cdiag(256) = 'WTHMASS '
321          cdiag(257) = 'USLTMASS'
322          cdiag(258) = 'VSLTMASS'
323          cdiag(259) = 'WSLTMASS'
324          cdiag(260) = 'UVELTH  '
325          cdiag(261) = 'VVELTH  '
326          cdiag(262) = 'WVELTH  '
327          cdiag(263) = 'UVELSLT '
328          cdiag(264) = 'VVELSLT '
329          cdiag(265) = 'WVELSLT '
330          cdiag(266) = 'UTRAC1  '
331          cdiag(267) = 'VTRAC1  '
332          cdiag(268) = 'WTRAC1  '
333          cdiag(269) = 'UTRAC2  '
334          cdiag(270) = 'VTRAC2  '
335          cdiag(271) = 'WTRAC2  '
336          cdiag(272) = 'UTRAC3  '
337          cdiag(273) = 'VTRAC3  '
338          cdiag(274) = 'WTRAC3  '
339          cdiag(275) = 'UTRAC4  '
340          cdiag(276) = 'VTRAC4  '
341          cdiag(277) = 'WTRAC4  '
342          cdiag(278) = 'UTRAC5  '
343          cdiag(279) = 'VTRAC5  '
344          cdiag(280) = 'WTRAC5  '
345    
346  c Diagnostic Descriptions  c Diagnostic Descriptions
347  c ----------------------------------------------------------------------  c ----------------------------------------------------------------------
# Line 355  c -------------------------------------- Line 407  c --------------------------------------
407        tdiag(51)  = 'Low-Level ( 1000-700 hPa) Cloud Fraction  (0-1)'        tdiag(51)  = 'Low-Level ( 1000-700 hPa) Cloud Fraction  (0-1)'
408        tdiag(52)  = 'Surface Evaporation  (mm/day)'        tdiag(52)  = 'Surface Evaporation  (mm/day)'
409        tdiag(53)  = 'Surface Pressure Tendency  (hPa/day)'        tdiag(53)  = 'Surface Pressure Tendency  (hPa/day)'
410        tdiag(54)  = 'Zonal Wind Tendency due to Analysis  (m/s/day)'        tdiag(54)  = 'Average Zonal Wind (m/s)'
411        tdiag(55)  = 'Meridional Wind Tendency due to Analysis  (m/s/day)'        tdiag(55)  = 'Average Meridional Wind (m/s)'
412        tdiag(56)  = 'Temperature Tendency due to Analysis  (K/day)'        tdiag(56)  = 'Average Potential Temperature (K)'
413        tdiag(57)  =        tdiag(57)  =
414       .  'Specific Humidity Tendency due to Analysis  (g/kg/day)'       .  'Average Specific Humidity (g/kg)'
415        tdiag(58)  = 'Vertical Velocity  (hPa/day)'        tdiag(58)  = 'Vertical Velocity  (hPa/day)'
416        tdiag(59)  = 'Total Zonal Wind Tendency  (m/s/day)'        tdiag(59)  = 'Total Zonal Wind Tendency  (m/s/day)'
417        tdiag(60)  = 'Total Meridional Wind Tendency  (m/s/day)'        tdiag(60)  = 'Total Meridional Wind Tendency  (m/s/day)'
# Line 389  c -------------------------------------- Line 441  c --------------------------------------
441        tdiag(81)  = 'Time-Averaged Turbulent Kinetic Energy  (m/s)^2'        tdiag(81)  = 'Time-Averaged Turbulent Kinetic Energy  (m/s)^2'
442        tdiag(82)  =        tdiag(82)  =
443       .  'Clear Sky Net Downward SW Radiation at the Ground  (W/m^2)'       .  'Clear Sky Net Downward SW Radiation at the Ground  (W/m^2)'
444        tdiag(83)  = 'Surface Pressure Tendency due to Analysis (hPa/day)'        tdiag(83)  = 'Average Surface Pressure (hPa)'
445        tdiag(84)  = 'User-Defined Surface   Diagnostic #1'        tdiag(84)  = 'User-Defined Surface   Diagnostic #1'
446        tdiag(85)  = 'User-Defined Surface   Diagnostic #2'        tdiag(85)  = 'User-Defined Surface   Diagnostic #2'
447        tdiag(86)  = 'User-Defined Upper-Air Diagnostic #1'        tdiag(86)  = 'User-Defined Upper-Air Diagnostic #1'
# Line 434  c -------------------------------------- Line 486  c --------------------------------------
486        tdiag(115) = 'Specific Humidity Interpolated to 10 Meters (g/kg)'        tdiag(115) = 'Specific Humidity Interpolated to 10 Meters (g/kg)'
487        tdiag(116) = 'Detrainment Cloud Mass Flux  (g/m^2/sec)'        tdiag(116) = 'Detrainment Cloud Mass Flux  (g/m^2/sec)'
488        tdiag(117) = 'Filling of Negative Specific Humidity (g/kg/day)'        tdiag(117) = 'Filling of Negative Specific Humidity (g/kg/day)'
489        tdiag(118) = 'Vertically Averaged QIAU  (mm/day)'        tdiag(118) = 'Vertically Averaged QAVE  (mm/day)'
490        tdiag(119) = 'Vertically Averaged QFILL  (mm/day)'        tdiag(119) = 'Vertically Averaged QFILL  (mm/day)'
491        tdiag(120) =        tdiag(120) =
492       .  'Zonal Wind Tendency due to Shapiro Filter  (m/s/day)'       .  'Zonal Wind Tendency due to Shapiro Filter  (m/s/day)'
# Line 514  c -------------------------------------- Line 566  c --------------------------------------
566        tdiag(180) = 'Vertically Averaged TURBT  (K/day)'        tdiag(180) = 'Vertically Averaged TURBT  (K/day)'
567        tdiag(181) = 'Vertically Averaged RADLW  (K/day)'        tdiag(181) = 'Vertically Averaged RADLW  (K/day)'
568        tdiag(182) = 'Vertically Averaged RADSW  (K/day)'        tdiag(182) = 'Vertically Averaged RADSW  (K/day)'
569        tdiag(183) = 'Vertically Averaged TIAU  (K/day)'        tdiag(183) = 'Vertically Averaged TAVE  (K/day)'
570        tdiag(184) = 'Pressure Thickness of the RAS Subcloud Layer (mb)'        tdiag(184) = 'Pressure Thickness of the RAS Subcloud Layer (mb)'
571        tdiag(185) =        tdiag(185) =
572       .  'Pressure Thickness of the RAS Subcloud Layer Counter'       .  'Pressure Thickness of the RAS Subcloud Layer Counter'
# Line 603  c -------------------------------------- Line 655  c --------------------------------------
655       . 'U-Wind Tendency due to Gravity Wave Drag w/Clouds (m/s/day)'       . 'U-Wind Tendency due to Gravity Wave Drag w/Clouds (m/s/day)'
656        tdiag(237) =        tdiag(237) =
657       . 'V-Wind Tendency due to Gravity Wave Drag w/Clouds (m/s/day)'       . 'V-Wind Tendency due to Gravity Wave Drag w/Clouds (m/s/day)'
658          tdiag(238) = 'Perturbation of Surface (pressure, height) (hPa,m)'
659          tdiag(239) = 'Square of Perturbation of Sfc (hPa^2,m^2)'
660          tdiag(240)  = 'Potential Temperature (K)'
661          tdiag(241)  = 'Salt or Water Vapor mixing ratio (g/kg)'
662          tdiag(242)  = 'Zonal Component of Velocity (m/s)'
663          tdiag(243)  = 'Meridional Component of Velocity (m/s)'
664          tdiag(244)  = 'Vertical Component of Velocity (m/s)'
665          tdiag(245)  = 'Square of Potential Temperature (K^2)'
666          tdiag(246)  = 'Square of Salt or Water Vapor mix rat (g^2/kg^2)'
667          tdiag(247)  = 'Square of Zonal Comp of Velocity (m^2/s^2)'
668          tdiag(248)  = 'Square of Meridional Comp of Velocity (m^2/s^2)'
669          tdiag(249)  = 'Square of Vertical Comp of Velocity (m^2/s^2)'
670          tdiag(250)  = 'Meridional Transport of Zonal Momentum (m^2/s^2)'
671          tdiag(251)  = 'Zonal Mass-Weighted Comp of Velocity (m/s)'
672          tdiag(252)  = 'Meridional Mass-Weighted Comp of Velocity (m/s)'
673          tdiag(253)  = 'Vertical Mass-Weighted Comp of Velocity (m/s)'
674          tdiag(254)  = 'Zonal Mass-Weight Transp of Pot Temp (m-K/s)'
675          tdiag(255)  = 'Meridional Mass-Weight Transp of Pot Temp (m-K/s)'
676          tdiag(256)  = 'Vertical Mass-Weight Transp of Pot Temp (m-K/s)'
677          tdiag(257)  = 'Zonal Mass-Weight Transp of Salt (m-kg/s-kg)'
678          tdiag(258)  = 'Meridional Mass-Weight Transp of Salt (m-kg/s-kg)'
679          tdiag(259)  = 'Vertical Mass-Weight Transp of Salt (m-kg/s-kg)'
680          tdiag(260)  = 'Zonal Transp of Pot Temp (m-K/s)'
681          tdiag(261)  = 'Meridional Transp of Pot Temp (m-K/s)'
682          tdiag(262)  = 'Vertical Transp of Pot Temp (m-K/s)'
683          tdiag(263)  = 'Zonal Transp of Salt (m-kg/s-kg)'
684          tdiag(264)  = 'Meridional Transp of Salt (m-kg/s-kg)'
685          tdiag(265)  = 'Vertical Transp of Salt (m-kg/s-kg)'
686          tdiag(266)  = 'Zonal Mass-Weighted Transp of Tracer 1 (m-kg/s-kg)'
687          tdiag(267)  = 'Merid Mass-Weighted Transp of Tracer 1 (m-kg/s-kg)'
688          tdiag(268)  = 'Vert  Mass-Weighted Transp of Tracer 1 (m-kg/s-kg)'
689          tdiag(269)  = 'Zonal Mass-Weighted Transp of Tracer 2 (m-kg/s-kg)'
690          tdiag(270)  = 'Merid Mass-Weighted Transp of Tracer 2 (m-kg/s-kg)'
691          tdiag(271)  = 'Vert  Mass-Weighted Transp of Tracer 2 (m-kg/s-kg)'
692          tdiag(272)  = 'Zonal Mass-Weighted Transp of Tracer 3 (m-kg/s-kg)'
693          tdiag(273)  = 'Merid Mass-Weighted Transp of Tracer 3 (m-kg/s-kg)'
694          tdiag(274)  = 'Vert  Mass-Weighted Transp of Tracer 3 (m-kg/s-kg)'
695          tdiag(275)  = 'Zonal Mass-Weighted Transp of Tracer 4 (m-kg/s-kg)'
696          tdiag(276)  = 'Merid Mass-Weighted Transp of Tracer 4 (m-kg/s-kg)'
697          tdiag(277)  = 'Vert  Mass-Weighted Transp of Tracer 4 (m-kg/s-kg)'
698          tdiag(278)  = 'Zonal Mass-Weighted Transp of Tracer 5 (m-kg/s-kg)'
699          tdiag(279)  = 'Merid Mass-Weighted Transp of Tracer 5 (m-kg/s-kg)'
700          tdiag(280)  = 'Vert  Mass-Weighted Transp of Tracer 5 (m-kg/s-kg)'
701    
702  c Diagnostic Units  c Diagnostic Units
703  c ----------------  c ----------------
# Line 659  c ---------------- Line 754  c ----------------
754        udiag(51)  = '0-1             '        udiag(51)  = '0-1             '
755        udiag(52)  = 'mm/day          '        udiag(52)  = 'mm/day          '
756        udiag(53)  = 'hPa/day         '        udiag(53)  = 'hPa/day         '
757        udiag(54)  = 'm/s/day         '        udiag(54)  = 'm/s             '
758        udiag(55)  = 'm/s/day         '        udiag(55)  = 'm/s             '
759        udiag(56)  = 'K/day           '        udiag(56)  = 'K               '
760        udiag(57)  = 'gram/kg/day     '        udiag(57)  = 'gram/kg         '
761        udiag(58)  = 'hPa/day         '        udiag(58)  = 'hPa/day         '
762        udiag(59)  = 'm/s/day         '        udiag(59)  = 'm/s/day         '
763        udiag(60)  = 'm/s/day         '        udiag(60)  = 'm/s/day         '
# Line 843  c ---------------- Line 938  c ----------------
938        udiag(235) = 'N/m2            '        udiag(235) = 'N/m2            '
939        udiag(236) = 'm/sec/day       '        udiag(236) = 'm/sec/day       '
940        udiag(237) = 'm/sec/day       '        udiag(237) = 'm/sec/day       '
941          udiag(238) = 'm or hPa        '
942          udiag(239) = 'm2 or hPa2      '
943          udiag(240) = 'K               '
944          udiag(241) = 'g/kg            '
945          udiag(242) = 'm/sec           '
946          udiag(243) = 'm/sec           '
947          udiag(244) = 'm/sec           '
948          udiag(245) = 'K2              '
949          udiag(246) = 'g2/kg2          '
950          udiag(247) = 'm2/sec2         '
951          udiag(248) = 'm2/sec2         '
952          udiag(249) = 'm2/sec2         '
953          udiag(250) = 'm2/sec2         '
954          udiag(251) = 'm/sec           '
955          udiag(252) = 'm/sec           '
956          udiag(253) = 'm/sec           '
957          udiag(254) = 'm-K/sec         '
958          udiag(255) = 'm-K/sec         '
959          udiag(256) = 'm-K/sec         '
960          udiag(257) = 'm-kg/s-kg       '
961          udiag(258) = 'm-kg/s-kg       '
962          udiag(259) = 'm-kg/s-kg       '
963          udiag(260) = 'm-K/sec         '
964          udiag(261) = 'm-K/sec         '
965          udiag(262) = 'm-K/sec         '
966          udiag(263) = 'm-kg/s-kg       '
967          udiag(264) = 'm-kg/s-kg       '
968          udiag(265) = 'm-kg/s-kg       '
969          udiag(266) = 'm-kg/s-kg       '
970          udiag(267) = 'm-kg/s-kg       '
971          udiag(268) = 'm-kg/s-kg       '
972          udiag(269) = 'm-kg/s-kg       '
973          udiag(270) = 'm-kg/s-kg       '
974          udiag(271) = 'm-kg/s-kg       '
975          udiag(272) = 'm-kg/s-kg       '
976          udiag(273) = 'm-kg/s-kg       '
977          udiag(274) = 'm-kg/s-kg       '
978          udiag(275) = 'm-kg/s-kg       '
979          udiag(276) = 'm-kg/s-kg       '
980          udiag(277) = 'm-kg/s-kg       '
981          udiag(278) = 'm-kg/s-kg       '
982          udiag(279) = 'm-kg/s-kg       '
983          udiag(280) = 'm-kg/s-kg       '
984    
985  c Diagnostic Parms  c Diagnostic Parms
986  c ----------------  c ----------------
987        gdiag( 1)  = 'UMG  002L       '        gdiag( 1)  = 'UM   002L       '
988        gdiag( 2)  = 'VMG  001L       '        gdiag( 2)  = 'VM   001L       '
989        gdiag( 3)  = 'SMG     L       '        gdiag( 3)  = 'SM      L       '
990        gdiag( 4)  = 'SMG     L       '        gdiag( 4)  = 'SM      L       '
991        gdiag( 5)  = 'SMG     L       '        gdiag( 5)  = 'SM      L       '
992        gdiag( 6)  = 'SMG     L       '        gdiag( 6)  = 'SM      L       '
993        gdiag( 7)  = 'SMGP    L       '        gdiag( 7)  = 'SM P    L       '
994        gdiag( 8)  = 'SMG     L       '        gdiag( 8)  = 'SM      L       '
995        gdiag( 9)  = 'SMG     L       '        gdiag( 9)  = 'SM      L       '
996        gdiag(10)  = 'SMG     L       '        gdiag(10)  = 'SM      L       '
997        gdiag(11)  = 'SMG     L       '        gdiag(11)  = 'SM      L       '
998        gdiag(12)  = 'SMG     L       '        gdiag(12)  = 'SM      L       '
999        gdiag(13)  = 'UMG  014M       '        gdiag(13)  = 'UM   014M       '
1000        gdiag(14)  = 'VMG  013M       '        gdiag(14)  = 'VM   013M       '
1001        gdiag(15)  = 'SMG     M       '        gdiag(15)  = 'SM      M       '
1002        gdiag(16)  = 'SMG     M       '        gdiag(16)  = 'SM      M       '
1003        gdiag(17)  = 'SMG     M       '        gdiag(17)  = 'SM      M       '
1004        gdiag(18)  = 'SMG     M       '        gdiag(18)  = 'SM      M       '
1005        gdiag(19)  = 'SM      M       '        gdiag(19)  = 'SM      M       '
1006        gdiag(20)  = 'SM P    M       '        gdiag(20)  = 'SM P    M       '
1007        gdiag(21)  = 'SMGP    L       '        gdiag(21)  = 'SM P    L       '
1008        gdiag(22)  = 'SMGP    L       '        gdiag(22)  = 'SM P    L       '
1009        gdiag(23)  = 'UMG  024L       '        gdiag(23)  = 'UM   024L       '
1010        gdiag(24)  = 'VMG  023L       '        gdiag(24)  = 'VM   023L       '
1011        gdiag(25)  = 'SMG     L       '        gdiag(25)  = 'SM      L       '
1012        gdiag(26)  = 'SMG     L       '        gdiag(26)  = 'SM      L       '
1013        gdiag(27)  = 'SMG     L       '        gdiag(27)  = 'SM      L       '
1014        gdiag(28)  = 'SMG     L       '        gdiag(28)  = 'SM      L       '
1015        gdiag(29)  = 'SMG     L       '        gdiag(29)  = 'SM      L       '
1016        gdiag(30)  = 'SMG     L       '        gdiag(30)  = 'SM      L       '
1017        gdiag(31)  = 'SMG     L       '        gdiag(31)  = 'SM      L       '
1018        gdiag(32)  = 'SMG     L       '        gdiag(32)  = 'SM      L       '
1019        gdiag(33)  = 'SMGP    L       '        gdiag(33)  = 'SM P    L       '
1020        gdiag(34)  = 'SMGP    L       '        gdiag(34)  = 'SM P    L       '
1021        gdiag(35)  = 'SMG     L       '        gdiag(35)  = 'SM      L       '
1022        gdiag(36)  = 'SMG     L       '        gdiag(36)  = 'SM      L       '
1023        gdiag(37)  = 'SMG     U       '        gdiag(37)  = 'SM      U       '
1024        gdiag(38)  = 'SMG     U       '        gdiag(38)  = 'SM      U       '
1025        gdiag(39)  = 'SMG     L       '        gdiag(39)  = 'SM      L       '
1026        gdiag(40)  = 'SM      M       '        gdiag(40)  = 'SM      M       '
1027        gdiag(41)  = 'SMG     M       '        gdiag(41)  = 'SM      M       '
1028        gdiag(42)  = 'SMGP    M       '        gdiag(42)  = 'SM P    M       '
1029        gdiag(43)  = 'SMG     M       '        gdiag(43)  = 'SM      M       '
1030        gdiag(44)  = 'SMGP    M       '        gdiag(44)  = 'SM P    M       '
1031        gdiag(45)  = 'SMGP    M       '        gdiag(45)  = 'SM P    M       '
1032        gdiag(46)  = 'SMG     L       '        gdiag(46)  = 'SM      L       '
1033        gdiag(47)  = 'SMG     M       '        gdiag(47)  = 'SM      M       '
1034        gdiag(48)  = 'SMGP    U       '        gdiag(48)  = 'SM P    U       '
1035        gdiag(49)  = 'SMG C050M       '        gdiag(49)  = 'SM  C050M       '
1036        gdiag(50)  = 'SMG D   M       '        gdiag(50)  = 'SM  D   M       '
1037        gdiag(51)  = 'SMGP    M       '        gdiag(51)  = 'SM P    M       '
1038        gdiag(52)  = 'SMG     L       '        gdiag(52)  = 'SM      L       '
1039        gdiag(53)  = 'SM      L       '        gdiag(53)  = 'SM      L       '
1040        gdiag(54)  = 'UU   055M       '        gdiag(54)  = 'UU   055M       '
1041        gdiag(55)  = 'VV   054M       '        gdiag(55)  = 'VV   054M       '
# Line 910  c ---------------- Line 1048  c ----------------
1048        gdiag(62)  = 'SM      M       '        gdiag(62)  = 'SM      M       '
1049        gdiag(63)  = 'SM      M       '        gdiag(63)  = 'SM      M       '
1050        gdiag(64)  = 'SM      L       '        gdiag(64)  = 'SM      L       '
1051        gdiag(65)  = 'SMG     M       '        gdiag(65)  = 'SM      M       '
1052        gdiag(66)  = 'SMG     M       '        gdiag(66)  = 'SM      M       '
1053        gdiag(67)  = 'SMG     L       '        gdiag(67)  = 'SM      L       '
1054        gdiag(68)  = 'SMG     L       '        gdiag(68)  = 'SM      L       '
1055        gdiag(69)  = 'SMGP    M       '        gdiag(69)  = 'SM P    M       '
1056        gdiag(70)  = 'SMGP    M       '        gdiag(70)  = 'SM P    M       '
1057        gdiag(71)  = 'SM P    M       '        gdiag(71)  = 'SM P    M       '
1058        gdiag(72)  = 'SMGP    U       '        gdiag(72)  = 'SM P    U       '
1059        gdiag(73)  = 'SMGP    U       '        gdiag(73)  = 'SM P    U       '
1060        gdiag(74)  = 'SMGP    L       '        gdiag(74)  = 'SM P    L       '
1061        gdiag(75)  = 'UU   076M       '        gdiag(75)  = 'UU   076M       '
1062        gdiag(76)  = 'VV   075M       '        gdiag(76)  = 'VV   075M       '
1063        gdiag(77)  = 'SM      M       '        gdiag(77)  = 'SM      M       '
# Line 927  c ---------------- Line 1065  c ----------------
1065        gdiag(79)  = 'SM      M       '        gdiag(79)  = 'SM      M       '
1066        gdiag(80)  = 'SM      L       '        gdiag(80)  = 'SM      L       '
1067        gdiag(81)  = 'SM P    L       '        gdiag(81)  = 'SM P    L       '
1068        gdiag(82)  = 'SMGP    L       '        gdiag(82)  = 'SM P    L       '
1069        gdiag(83)  = 'SM      L       '        gdiag(83)  = 'SM      L       '
1070        gdiag(84)  = 'SMG     L       '        gdiag(84)  = 'SM      L       '
1071        gdiag(85)  = 'SMG     L       '        gdiag(85)  = 'SM      L       '
1072        gdiag(86)  = 'SMG     M       '        gdiag(86)  = 'SM      M       '
1073        gdiag(87)  = 'SMG     M       '        gdiag(87)  = 'SM      M       '
1074        gdiag(88)  = 'UU   089M       '        gdiag(88)  = 'UU   089M       '
1075        gdiag(89)  = 'VV   088M       '        gdiag(89)  = 'VV   088M       '
1076        gdiag(90)  = 'SM      M       '        gdiag(90)  = 'SM      M       '
1077        gdiag(91)  = 'SM      M       '        gdiag(91)  = 'SM      M       '
1078        gdiag(92)  = 'UU   093M       '        gdiag(92)  = 'UU   093M       '
1079        gdiag(93)  = 'VV   092M       '        gdiag(93)  = 'VV   092M       '
1080        gdiag(94)  = 'UMG  095M       '        gdiag(94)  = 'UM   095M       '
1081        gdiag(95)  = 'VMG  094M       '        gdiag(95)  = 'VM   094M       '
1082        gdiag(96)  = 'UMG  097L       '        gdiag(96)  = 'UM   097L       '
1083        gdiag(97)  = 'VMG  096L       '        gdiag(97)  = 'VM   096L       '
1084        gdiag(98)  = 'UMG  099U       '        gdiag(98)  = 'UM   099U       '
1085        gdiag(99)  = 'VMG  098U       '        gdiag(99)  = 'VM   098U       '
1086        gdiag(100) = 'SMG     M       '        gdiag(100) = 'SM      M       '
1087        gdiag(101) = 'SM      L       '        gdiag(101) = 'SM      L       '
1088        gdiag(102) = 'UM   103M       '        gdiag(102) = 'UM   103M       '
1089        gdiag(103) = 'VM   102M       '        gdiag(103) = 'VM   102M       '
1090        gdiag(104) = 'UM   105M       '        gdiag(104) = 'UM   105M       '
1091        gdiag(105) = 'VM   104M       '        gdiag(105) = 'VM   104M       '
1092        gdiag(106) = 'SMGP    M       '        gdiag(106) = 'SM P    M       '
1093        gdiag(107) = 'SM P    M       '        gdiag(107) = 'SM P    M       '
1094        gdiag(108) = 'UMG  109M       '        gdiag(108) = 'UM   109M       '
1095        gdiag(109) = 'VMG  108M       '        gdiag(109) = 'VM   108M       '
1096        gdiag(110) = 'SMG     M       '        gdiag(110) = 'SM      M       '
1097        gdiag(111) = 'SMGP    M       '        gdiag(111) = 'SM P    M       '
1098        gdiag(112) = 'UMG  113M       '        gdiag(112) = 'UM   113M       '
1099        gdiag(113) = 'VMG  112M       '        gdiag(113) = 'VM   112M       '
1100        gdiag(114) = 'SMG     M       '        gdiag(114) = 'SM      M       '
1101        gdiag(115) = 'SMGP    M       '        gdiag(115) = 'SM P    M       '
1102        gdiag(116) = 'SMGP    L       '        gdiag(116) = 'SM P    L       '
1103        gdiag(117) = 'SM      M       '        gdiag(117) = 'SM      M       '
1104        gdiag(118) = 'SM      M       '        gdiag(118) = 'SM      M       '
1105        gdiag(119) = 'SM P    L       '        gdiag(119) = 'SM P    L       '
# Line 969  c ---------------- Line 1107  c ----------------
1107        gdiag(121) = 'VV   120M       '        gdiag(121) = 'VV   120M       '
1108        gdiag(122) = 'SM      M       '        gdiag(122) = 'SM      M       '
1109        gdiag(123) = 'SM      M       '        gdiag(123) = 'SM      M       '
1110        gdiag(124) = 'SMG     L       '        gdiag(124) = 'SM      L       '
1111        gdiag(125) = 'SMG     L       '        gdiag(125) = 'SM      L       '
1112        gdiag(126) = 'SMG     L       '        gdiag(126) = 'SM      L       '
1113        gdiag(127) = 'SMG     L       '        gdiag(127) = 'SM      L       '
1114        gdiag(128) = 'SMG     L       '        gdiag(128) = 'SM      L       '
1115        gdiag(129) = 'SMG     L       '        gdiag(129) = 'SM      L       '
1116        gdiag(130) = 'SMG     L       '        gdiag(130) = 'SM      L       '
1117        gdiag(131) = 'SMG     L       '        gdiag(131) = 'SM      L       '
1118        gdiag(132) = 'SMG     M       '        gdiag(132) = 'SM      M       '
1119        gdiag(133) = 'SMG     M       '        gdiag(133) = 'SM      M       '
1120        gdiag(134) = 'SMG     M       '        gdiag(134) = 'SM      M       '
1121        gdiag(135) = 'SMG     M       '        gdiag(135) = 'SM      M       '
1122        gdiag(136) = 'SMG     M       '        gdiag(136) = 'SM      M       '
1123        gdiag(137) = 'SMG     M       '        gdiag(137) = 'SM      M       '
1124        gdiag(138) = 'SMG     M       '        gdiag(138) = 'SM      M       '
1125        gdiag(139) = 'SMG     M       '        gdiag(139) = 'SM      M       '
1126        gdiag(140) = 'SMGP    M       '        gdiag(140) = 'SM P    M       '
1127        gdiag(141) = 'SMGP    M       '        gdiag(141) = 'SM P    M       '
1128        gdiag(142) = 'SMGPC150M       '        gdiag(142) = 'SM PC150M       '
1129        gdiag(143) = 'SMGPC151M       '        gdiag(143) = 'SM PC151M       '
1130        gdiag(144) = 'SMGPC152M       '        gdiag(144) = 'SM PC152M       '
1131        gdiag(145) = 'SMG     M       '        gdiag(145) = 'SM      M       '
1132        gdiag(146) = 'SMGPC147M       '        gdiag(146) = 'SM PC147M       '
1133        gdiag(147) = 'SMG D   M       '        gdiag(147) = 'SM  D   M       '
1134        gdiag(148) = 'SMGPC149M       '        gdiag(148) = 'SM PC149M       '
1135        gdiag(149) = 'SMG D   M       '        gdiag(149) = 'SM  D   M       '
1136        gdiag(150) = 'SMG D   M       '        gdiag(150) = 'SM  D   M       '
1137        gdiag(151) = 'SMG D   M       '        gdiag(151) = 'SM  D   M       '
1138        gdiag(152) = 'SMG D   M       '        gdiag(152) = 'SM  D   M       '
1139        gdiag(153) = 'SMG     L       '        gdiag(153) = 'SM      L       '
1140        gdiag(154) = 'SMG     L       '        gdiag(154) = 'SM      L       '
1141        gdiag(155) = 'SMG     L       '        gdiag(155) = 'SM      L       '
1142        gdiag(156) = 'SMG     L       '        gdiag(156) = 'SM      L       '
1143        gdiag(157) = 'SMG     L       '        gdiag(157) = 'SM      L       '
1144        gdiag(158) = 'SMG     L       '        gdiag(158) = 'SM      L       '
1145        gdiag(159) = 'SMG     L       '        gdiag(159) = 'SM      L       '
1146        gdiag(160) = 'SMG     L       '        gdiag(160) = 'SM      L       '
1147        gdiag(161) = 'SMG     L       '        gdiag(161) = 'SM      L       '
1148        gdiag(162) = 'SMG     L       '        gdiag(162) = 'SM      L       '
1149        gdiag(163) = 'SMGP    L       '        gdiag(163) = 'SM P    L       '
1150        gdiag(164) = 'SMG     L       '        gdiag(164) = 'SM      L       '
1151        gdiag(165) = 'SMG     L       '        gdiag(165) = 'SM      L       '
1152        gdiag(166) = 'SMG     L       '        gdiag(166) = 'SM      L       '
1153        gdiag(167) = 'SMG     L       '        gdiag(167) = 'SM      L       '
1154        gdiag(168) = 'SMG     L       '        gdiag(168) = 'SM      L       '
1155        gdiag(169) = 'SMG     L       '        gdiag(169) = 'SM      L       '
1156        gdiag(170) = 'SMG     L       '        gdiag(170) = 'SM      L       '
1157        gdiag(171) = 'SMG     L       '        gdiag(171) = 'SM      L       '
1158        gdiag(172) = 'SMGP    L       '        gdiag(172) = 'SM P    L       '
1159        gdiag(173) = 'SMGP    L       '        gdiag(173) = 'SM P    L       '
1160        gdiag(174) = 'SMG     L       '        gdiag(174) = 'SM      L       '
1161        gdiag(175) = 'SMG     L       '        gdiag(175) = 'SM      L       '
1162        gdiag(176) = 'SMG     L       '        gdiag(176) = 'SM      L       '
1163        gdiag(177) = 'SMG     L       '        gdiag(177) = 'SM      L       '
1164        gdiag(178) = 'SMG     L       '        gdiag(178) = 'SM      L       '
1165        gdiag(179) = 'SM      M       '        gdiag(179) = 'SM      M       '
1166        gdiag(180) = 'SM      M       '        gdiag(180) = 'SM      M       '
1167        gdiag(181) = 'SM      M       '        gdiag(181) = 'SM      M       '
1168        gdiag(182) = 'SM P    M       '        gdiag(182) = 'SM P    M       '
1169        gdiag(183) = 'SM      M       '        gdiag(183) = 'SM      M       '
1170        gdiag(184) = 'SMGPC185M       '        gdiag(184) = 'SM PC185M       '
1171        gdiag(185) = 'SMGPD   M       '        gdiag(185) = 'SM PD   M       '
1172        gdiag(186) = 'SMG     L       '        gdiag(186) = 'SM      L       '
1173        gdiag(187) = 'SMG C188L       '        gdiag(187) = 'SM  C188L       '
1174        gdiag(188) = 'SMG D   L       '        gdiag(188) = 'SM  D   L       '
1175        gdiag(189) = '                '        gdiag(189) = '                '
1176        gdiag(190) = 'SMG     L       '        gdiag(190) = 'SM      L       '
1177        gdiag(191) = 'SM P    L       '        gdiag(191) = 'SM P    L       '
1178        gdiag(192) = 'SMG     L       '        gdiag(192) = 'SM      L       '
1179        gdiag(193) = 'SMG     L       '        gdiag(193) = 'SM      L       '
1180        gdiag(194) = 'SMG     L       '        gdiag(194) = 'SM      L       '
1181        gdiag(195) = 'SMG     L       '        gdiag(195) = 'SM      L       '
1182        gdiag(196) = 'SMG     L       '        gdiag(196) = 'SM      L       '
1183        gdiag(197) = 'SMG     L       '        gdiag(197) = 'SM      L       '
1184        gdiag(198) = 'SMG     L       '        gdiag(198) = 'SM      L       '
1185        gdiag(199) = 'SMG     L       '        gdiag(199) = 'SM      L       '
1186        gdiag(200) = 'SMG     L       '        gdiag(200) = 'SM      L       '
1187        gdiag(201) = 'SMG     L       '        gdiag(201) = 'SM      L       '
1188        gdiag(202) = 'SMG     M       '        gdiag(202) = 'SM      M       '
1189        gdiag(203) = 'SMG     M       '        gdiag(203) = 'SM      M       '
1190        gdiag(204) = 'SMG C210L       '        gdiag(204) = 'SM  C210L       '
1191        gdiag(205) = 'SMG     L       '        gdiag(205) = 'SM      L       '
1192        gdiag(206) = 'SMG     L       '        gdiag(206) = 'SM      L       '
1193        gdiag(207) = 'SMG     L       '        gdiag(207) = 'SM      L       '
1194        gdiag(208) = 'SMG     L       '        gdiag(208) = 'SM      L       '
1195        gdiag(209) = 'SMG     M       '        gdiag(209) = 'SM      M       '
1196        gdiag(210) = 'SMG D   L       '        gdiag(210) = 'SM  D   L       '
1197        gdiag(211) = 'SM      M       '        gdiag(211) = 'SM      M       '
1198        gdiag(212) = 'SM      M       '        gdiag(212) = 'SM      M       '
1199        gdiag(213) = 'SMGP    M       '        gdiag(213) = 'SM P    M       '
1200        gdiag(214) = 'SMGP    L       '        gdiag(214) = 'SM P    L       '
1201        gdiag(215) = 'SMGP    L       '        gdiag(215) = 'SM P    L       '
1202        gdiag(216) = 'SMGP    L       '        gdiag(216) = 'SM P    L       '
1203        gdiag(217) = 'SMGP    L       '        gdiag(217) = 'SM P    L       '
1204        gdiag(218) = 'SMGP    L       '        gdiag(218) = 'SM P    L       '
1205        gdiag(219) = 'SMGP    L       '        gdiag(219) = 'SM P    L       '
1206        gdiag(220) = 'SMGP    M       '        gdiag(220) = 'SM P    M       '
1207        gdiag(221) = 'SMG     M       '        gdiag(221) = 'SM      M       '
1208        gdiag(222) = 'SMG     M       '        gdiag(222) = 'SM      M       '
1209        gdiag(223) = 'SMG     M       '        gdiag(223) = 'SM      M       '
1210        gdiag(224) = 'SMG     M       '        gdiag(224) = 'SM      M       '
1211        gdiag(225) = 'SMG     M       '        gdiag(225) = 'SM      M       '
1212        gdiag(226) = 'SMG     M       '        gdiag(226) = 'SM      M       '
1213        gdiag(227) = 'SMG     M       '        gdiag(227) = 'SM      M       '
1214        gdiag(228) = 'SMG     M       '        gdiag(228) = 'SM      M       '
1215        gdiag(229) = 'UMG  230L       '        gdiag(229) = 'UM   230L       '
1216        gdiag(230) = 'VMG  229L       '        gdiag(230) = 'VM   229L       '
1217        gdiag(231) = 'SMG     L       '        gdiag(231) = 'SM      L       '
1218        gdiag(232) = 'UMG  233L       '        gdiag(232) = 'UM   233L       '
1219        gdiag(233) = 'VMG  232L       '        gdiag(233) = 'VM   232L       '
1220        gdiag(234) = 'UMG  235L       '        gdiag(234) = 'UM   235L       '
1221        gdiag(235) = 'VMG  234L       '        gdiag(235) = 'VM   234L       '
1222        gdiag(236) = 'UMG  237M       '        gdiag(236) = 'UM   237M       '
1223        gdiag(237) = 'VMG  236M       '        gdiag(237) = 'VM   236M       '
1224          gdiag(238) = 'SM      M       '
1225          gdiag(239) = 'SM      M       '
1226          gdiag(240) = 'SM      M       '
1227          gdiag(241) = 'SM      M       '
1228          gdiag(242) = 'UU   243M       '
1229          gdiag(243) = 'VV   242M       '
1230          gdiag(244) = 'WM      L       '
1231          gdiag(245) = 'SM      M       '
1232          gdiag(246) = 'SM      M       '
1233          gdiag(247) = 'UU   248M       '
1234          gdiag(248) = 'VV   247M       '
1235          gdiag(249) = 'WM      L       '
1236          gdiag(250) = 'UZ      M       '
1237          gdiag(251) = 'UU   252M       '
1238          gdiag(252) = 'VV   251M       '
1239          gdiag(253) = 'WM      M       '
1240          gdiag(254) = 'UU   255M       '
1241          gdiag(255) = 'VV   254M       '
1242          gdiag(256) = 'WM      M       '
1243          gdiag(257) = 'UU   258M       '
1244          gdiag(258) = 'VV   257M       '
1245          gdiag(259) = 'WM      M       '
1246          gdiag(260) = 'UU   261M       '
1247          gdiag(261) = 'VV   260M       '
1248          gdiag(262) = 'WM      M       '
1249          gdiag(263) = 'UU   264M       '
1250          gdiag(264) = 'VV   263M       '
1251          gdiag(265) = 'WM      M       '
1252          gdiag(266) = 'UU   267M       '
1253          gdiag(267) = 'VV   266M       '
1254          gdiag(268) = 'WM      M       '
1255          gdiag(269) = 'UU   270M       '
1256          gdiag(270) = 'VV   269M       '
1257          gdiag(271) = 'WM      M       '
1258          gdiag(272) = 'UU   273M       '
1259          gdiag(273) = 'VV   272M       '
1260          gdiag(274) = 'WM      M       '
1261          gdiag(275) = 'UU   276M       '
1262          gdiag(276) = 'VV   275M       '
1263          gdiag(277) = 'WM      M       '
1264          gdiag(278) = 'UU   279M       '
1265          gdiag(279) = 'VV   278M       '
1266          gdiag(280) = 'WM      M       '
1267                    
1268  c Diagnostic Levels  c Diagnostic Levels
1269  c -----------------  c -----------------
# Line 1139  c ----------------- Line 1320  c -----------------
1320        KDIAG(51) =  1            KDIAG(51) =  1    
1321        KDIAG(52) =  1            KDIAG(52) =  1    
1322        KDIAG(53) =  1            KDIAG(53) =  1    
1323        KDIAG(54) = nrphys        KDIAG(54) = Nr
1324        KDIAG(55) = nrphys        KDIAG(55) = Nr
1325        KDIAG(56) = nrphys        KDIAG(56) = Nr
1326        KDIAG(57) = nrphys        KDIAG(57) = Nr
1327        KDIAG(58) = nrphys        KDIAG(58) = nrphys
1328        KDIAG(59) = nrphys        KDIAG(59) = nrphys
1329        KDIAG(60) = nrphys        KDIAG(60) = nrphys
# Line 1323  c ----------------- Line 1504  c -----------------
1504        KDIAG(235)=  1        KDIAG(235)=  1
1505        KDIAG(236)= nrphys        KDIAG(236)= nrphys
1506        KDIAG(237)= nrphys        KDIAG(237)= nrphys
1507          KDIAG(238)= 1
1508          KDIAG(239)= 1
1509          KDIAG(240)= Nr
1510          KDIAG(241)= Nr
1511          KDIAG(242)= Nr
1512          KDIAG(243)= Nr
1513          KDIAG(244)= Nr
1514          KDIAG(245)= Nr
1515          KDIAG(246)= Nr
1516          KDIAG(247)= Nr
1517          KDIAG(248)= Nr
1518          KDIAG(249)= Nr
1519          KDIAG(250)= Nr
1520          KDIAG(251)= Nr
1521          KDIAG(252)= Nr
1522          KDIAG(253)= Nr
1523          KDIAG(254)= Nr
1524          KDIAG(255)= Nr
1525          KDIAG(256)= Nr
1526          KDIAG(257)= Nr
1527          KDIAG(258)= Nr
1528          KDIAG(259)= Nr
1529          KDIAG(260)= Nr
1530          KDIAG(261)= Nr
1531          KDIAG(262)= Nr
1532          KDIAG(263)= Nr
1533          KDIAG(264)= Nr
1534          KDIAG(265)= Nr
1535          KDIAG(266)= Nr
1536          KDIAG(267)= Nr
1537          KDIAG(268)= Nr
1538          KDIAG(269)= Nr
1539          KDIAG(270)= Nr
1540          KDIAG(271)= Nr
1541          KDIAG(272)= Nr
1542          KDIAG(273)= Nr
1543          KDIAG(274)= Nr
1544          KDIAG(275)= Nr
1545          KDIAG(276)= Nr
1546          KDIAG(277)= Nr
1547          KDIAG(278)= Nr
1548          KDIAG(279)= Nr
1549          KDIAG(280)= Nr
1550    
1551        do n=1,ndiagt        do n=1,ndiagt
1552        idiag (n) = 0        idiag (n) = 0
1553        cdiag(n) = cdiag(n)        ndiag(n) = 0
1554        enddo        enddo
1555    
1556        RETURN        RETURN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22