/[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.6 by molod, Mon Mar 1 20:31:58 2004 UTC revision 1.7 by molod, Thu Mar 11 19:27:44 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 298  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    
316  c Diagnostic Descriptions  c Diagnostic Descriptions
317  c ----------------------------------------------------------------------  c ----------------------------------------------------------------------
# Line 611  c -------------------------------------- Line 625  c --------------------------------------
625       . '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)'
626        tdiag(237) =        tdiag(237) =
627       . '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)'
628          tdiag(238) = 'Perturbation of Surface (pressure, height) (hPa,m)'
629          tdiag(239) = 'Square of Perturbation of Sfc (hPa^2,m^2)'
630          tdiag(240)  = 'Potential Temperature (K)'
631          tdiag(241)  = 'Salt or Water Vapor mixing ratio (g/kg)'
632          tdiag(242)  = 'Zonal Component of Velocity (m/s)'
633          tdiag(243)  = 'Meridional Component of Velocity (m/s)'
634          tdiag(244)  = 'Vertical Component of Velocity (m/s)'
635          tdiag(245)  = 'Square of Potential Temperature (K^2)'
636          tdiag(246)  = 'Square of Salt or Water Vapor mix rat (g^2/kg^2)'
637          tdiag(247)  = 'Square of Zonal Comp of Velocity (m^2/s^2)'
638          tdiag(248)  = 'Square of Meridional Comp of Velocity (m^2/s^2)'
639          tdiag(249)  = 'Square of Vertical Comp of Velocity (m^2/s^2)'
640          tdiag(250)  = 'Meridional Transport of Zonal Momentum (m^2/s^2)'
641    
642  c Diagnostic Units  c Diagnostic Units
643  c ----------------  c ----------------
# Line 851  c ---------------- Line 878  c ----------------
878        udiag(235) = 'N/m2            '        udiag(235) = 'N/m2            '
879        udiag(236) = 'm/sec/day       '        udiag(236) = 'm/sec/day       '
880        udiag(237) = 'm/sec/day       '        udiag(237) = 'm/sec/day       '
881          udiag(238) = 'm or hPa        '
882          udiag(239) = 'm2 or hPa2      '
883          udiag(240) = 'K               '
884          udiag(241) = 'g/kg            '
885          udiag(242) = 'm/sec           '
886          udiag(243) = 'm/sec           '
887          udiag(244) = 'm/sec           '
888          udiag(245) = 'K2              '
889          udiag(246) = 'g2/kg2          '
890          udiag(247) = 'm2/sec2         '
891          udiag(248) = 'm2/sec2         '
892          udiag(249) = 'm2/sec2         '
893          udiag(250) = 'm2/sec2         '
894    
895  c Diagnostic Parms  c Diagnostic Parms
896  c ----------------  c ----------------
897        gdiag( 1)  = 'UMG  002L       '        gdiag( 1)  = 'UM   002L       '
898        gdiag( 2)  = 'VMG  001L       '        gdiag( 2)  = 'VM   001L       '
899        gdiag( 3)  = 'SMG     L       '        gdiag( 3)  = 'SM      L       '
900        gdiag( 4)  = 'SMG     L       '        gdiag( 4)  = 'SM      L       '
901        gdiag( 5)  = 'SMG     L       '        gdiag( 5)  = 'SM      L       '
902        gdiag( 6)  = 'SMG     L       '        gdiag( 6)  = 'SM      L       '
903        gdiag( 7)  = 'SMGP    L       '        gdiag( 7)  = 'SM P    L       '
904        gdiag( 8)  = 'SMG     L       '        gdiag( 8)  = 'SM      L       '
905        gdiag( 9)  = 'SMG     L       '        gdiag( 9)  = 'SM      L       '
906        gdiag(10)  = 'SMG     L       '        gdiag(10)  = 'SM      L       '
907        gdiag(11)  = 'SMG     L       '        gdiag(11)  = 'SM      L       '
908        gdiag(12)  = 'SMG     L       '        gdiag(12)  = 'SM      L       '
909        gdiag(13)  = 'UMG  014M       '        gdiag(13)  = 'UM   014M       '
910        gdiag(14)  = 'VMG  013M       '        gdiag(14)  = 'VM   013M       '
911        gdiag(15)  = 'SMG     M       '        gdiag(15)  = 'SM      M       '
912        gdiag(16)  = 'SMG     M       '        gdiag(16)  = 'SM      M       '
913        gdiag(17)  = 'SMG     M       '        gdiag(17)  = 'SM      M       '
914        gdiag(18)  = 'SMG     M       '        gdiag(18)  = 'SM      M       '
915        gdiag(19)  = 'SM      M       '        gdiag(19)  = 'SM      M       '
916        gdiag(20)  = 'SM P    M       '        gdiag(20)  = 'SM P    M       '
917        gdiag(21)  = 'SMGP    L       '        gdiag(21)  = 'SM P    L       '
918        gdiag(22)  = 'SMGP    L       '        gdiag(22)  = 'SM P    L       '
919        gdiag(23)  = 'UMG  024L       '        gdiag(23)  = 'UM   024L       '
920        gdiag(24)  = 'VMG  023L       '        gdiag(24)  = 'VM   023L       '
921        gdiag(25)  = 'SMG     L       '        gdiag(25)  = 'SM      L       '
922        gdiag(26)  = 'SMG     L       '        gdiag(26)  = 'SM      L       '
923        gdiag(27)  = 'SMG     L       '        gdiag(27)  = 'SM      L       '
924        gdiag(28)  = 'SMG     L       '        gdiag(28)  = 'SM      L       '
925        gdiag(29)  = 'SMG     L       '        gdiag(29)  = 'SM      L       '
926        gdiag(30)  = 'SMG     L       '        gdiag(30)  = 'SM      L       '
927        gdiag(31)  = 'SMG     L       '        gdiag(31)  = 'SM      L       '
928        gdiag(32)  = 'SMG     L       '        gdiag(32)  = 'SM      L       '
929        gdiag(33)  = 'SMGP    L       '        gdiag(33)  = 'SM P    L       '
930        gdiag(34)  = 'SMGP    L       '        gdiag(34)  = 'SM P    L       '
931        gdiag(35)  = 'SMG     L       '        gdiag(35)  = 'SM      L       '
932        gdiag(36)  = 'SMG     L       '        gdiag(36)  = 'SM      L       '
933        gdiag(37)  = 'SMG     U       '        gdiag(37)  = 'SM      U       '
934        gdiag(38)  = 'SMG     U       '        gdiag(38)  = 'SM      U       '
935        gdiag(39)  = 'SMG     L       '        gdiag(39)  = 'SM      L       '
936        gdiag(40)  = 'SM      M       '        gdiag(40)  = 'SM      M       '
937        gdiag(41)  = 'SMG     M       '        gdiag(41)  = 'SM      M       '
938        gdiag(42)  = 'SMGP    M       '        gdiag(42)  = 'SM P    M       '
939        gdiag(43)  = 'SMG     M       '        gdiag(43)  = 'SM      M       '
940        gdiag(44)  = 'SMGP    M       '        gdiag(44)  = 'SM P    M       '
941        gdiag(45)  = 'SMGP    M       '        gdiag(45)  = 'SM P    M       '
942        gdiag(46)  = 'SMG     L       '        gdiag(46)  = 'SM      L       '
943        gdiag(47)  = 'SMG     M       '        gdiag(47)  = 'SM      M       '
944        gdiag(48)  = 'SMGP    U       '        gdiag(48)  = 'SM P    U       '
945        gdiag(49)  = 'SMG C050M       '        gdiag(49)  = 'SM  C050M       '
946        gdiag(50)  = 'SMG D   M       '        gdiag(50)  = 'SM  D   M       '
947        gdiag(51)  = 'SMGP    M       '        gdiag(51)  = 'SM P    M       '
948        gdiag(52)  = 'SMG     L       '        gdiag(52)  = 'SM      L       '
949        gdiag(53)  = 'SM      L       '        gdiag(53)  = 'SM      L       '
950        gdiag(54)  = 'UU   055M       '        gdiag(54)  = 'UU   055M       '
951        gdiag(55)  = 'VV   054M       '        gdiag(55)  = 'VV   054M       '
# Line 918  c ---------------- Line 958  c ----------------
958        gdiag(62)  = 'SM      M       '        gdiag(62)  = 'SM      M       '
959        gdiag(63)  = 'SM      M       '        gdiag(63)  = 'SM      M       '
960        gdiag(64)  = 'SM      L       '        gdiag(64)  = 'SM      L       '
961        gdiag(65)  = 'SMG     M       '        gdiag(65)  = 'SM      M       '
962        gdiag(66)  = 'SMG     M       '        gdiag(66)  = 'SM      M       '
963        gdiag(67)  = 'SMG     L       '        gdiag(67)  = 'SM      L       '
964        gdiag(68)  = 'SMG     L       '        gdiag(68)  = 'SM      L       '
965        gdiag(69)  = 'SMGP    M       '        gdiag(69)  = 'SM P    M       '
966        gdiag(70)  = 'SMGP    M       '        gdiag(70)  = 'SM P    M       '
967        gdiag(71)  = 'SM P    M       '        gdiag(71)  = 'SM P    M       '
968        gdiag(72)  = 'SMGP    U       '        gdiag(72)  = 'SM P    U       '
969        gdiag(73)  = 'SMGP    U       '        gdiag(73)  = 'SM P    U       '
970        gdiag(74)  = 'SMGP    L       '        gdiag(74)  = 'SM P    L       '
971        gdiag(75)  = 'UU   076M       '        gdiag(75)  = 'UU   076M       '
972        gdiag(76)  = 'VV   075M       '        gdiag(76)  = 'VV   075M       '
973        gdiag(77)  = 'SM      M       '        gdiag(77)  = 'SM      M       '
# Line 935  c ---------------- Line 975  c ----------------
975        gdiag(79)  = 'SM      M       '        gdiag(79)  = 'SM      M       '
976        gdiag(80)  = 'SM      L       '        gdiag(80)  = 'SM      L       '
977        gdiag(81)  = 'SM P    L       '        gdiag(81)  = 'SM P    L       '
978        gdiag(82)  = 'SMGP    L       '        gdiag(82)  = 'SM P    L       '
979        gdiag(83)  = 'SM      L       '        gdiag(83)  = 'SM      L       '
980        gdiag(84)  = 'SMG     L       '        gdiag(84)  = 'SM      L       '
981        gdiag(85)  = 'SMG     L       '        gdiag(85)  = 'SM      L       '
982        gdiag(86)  = 'SMG     M       '        gdiag(86)  = 'SM      M       '
983        gdiag(87)  = 'SMG     M       '        gdiag(87)  = 'SM      M       '
984        gdiag(88)  = 'UU   089M       '        gdiag(88)  = 'UU   089M       '
985        gdiag(89)  = 'VV   088M       '        gdiag(89)  = 'VV   088M       '
986        gdiag(90)  = 'SM      M       '        gdiag(90)  = 'SM      M       '
987        gdiag(91)  = 'SM      M       '        gdiag(91)  = 'SM      M       '
988        gdiag(92)  = 'UU   093M       '        gdiag(92)  = 'UU   093M       '
989        gdiag(93)  = 'VV   092M       '        gdiag(93)  = 'VV   092M       '
990        gdiag(94)  = 'UMG  095M       '        gdiag(94)  = 'UM   095M       '
991        gdiag(95)  = 'VMG  094M       '        gdiag(95)  = 'VM   094M       '
992        gdiag(96)  = 'UMG  097L       '        gdiag(96)  = 'UM   097L       '
993        gdiag(97)  = 'VMG  096L       '        gdiag(97)  = 'VM   096L       '
994        gdiag(98)  = 'UMG  099U       '        gdiag(98)  = 'UM   099U       '
995        gdiag(99)  = 'VMG  098U       '        gdiag(99)  = 'VM   098U       '
996        gdiag(100) = 'SMG     M       '        gdiag(100) = 'SM      M       '
997        gdiag(101) = 'SM      L       '        gdiag(101) = 'SM      L       '
998        gdiag(102) = 'UM   103M       '        gdiag(102) = 'UM   103M       '
999        gdiag(103) = 'VM   102M       '        gdiag(103) = 'VM   102M       '
1000        gdiag(104) = 'UM   105M       '        gdiag(104) = 'UM   105M       '
1001        gdiag(105) = 'VM   104M       '        gdiag(105) = 'VM   104M       '
1002        gdiag(106) = 'SMGP    M       '        gdiag(106) = 'SM P    M       '
1003        gdiag(107) = 'SM P    M       '        gdiag(107) = 'SM P    M       '
1004        gdiag(108) = 'UMG  109M       '        gdiag(108) = 'UM   109M       '
1005        gdiag(109) = 'VMG  108M       '        gdiag(109) = 'VM   108M       '
1006        gdiag(110) = 'SMG     M       '        gdiag(110) = 'SM      M       '
1007        gdiag(111) = 'SMGP    M       '        gdiag(111) = 'SM P    M       '
1008        gdiag(112) = 'UMG  113M       '        gdiag(112) = 'UM   113M       '
1009        gdiag(113) = 'VMG  112M       '        gdiag(113) = 'VM   112M       '
1010        gdiag(114) = 'SMG     M       '        gdiag(114) = 'SM      M       '
1011        gdiag(115) = 'SMGP    M       '        gdiag(115) = 'SM P    M       '
1012        gdiag(116) = 'SMGP    L       '        gdiag(116) = 'SM P    L       '
1013        gdiag(117) = 'SM      M       '        gdiag(117) = 'SM      M       '
1014        gdiag(118) = 'SM      M       '        gdiag(118) = 'SM      M       '
1015        gdiag(119) = 'SM P    L       '        gdiag(119) = 'SM P    L       '
# Line 977  c ---------------- Line 1017  c ----------------
1017        gdiag(121) = 'VV   120M       '        gdiag(121) = 'VV   120M       '
1018        gdiag(122) = 'SM      M       '        gdiag(122) = 'SM      M       '
1019        gdiag(123) = 'SM      M       '        gdiag(123) = 'SM      M       '
1020        gdiag(124) = 'SMG     L       '        gdiag(124) = 'SM      L       '
1021        gdiag(125) = 'SMG     L       '        gdiag(125) = 'SM      L       '
1022        gdiag(126) = 'SMG     L       '        gdiag(126) = 'SM      L       '
1023        gdiag(127) = 'SMG     L       '        gdiag(127) = 'SM      L       '
1024        gdiag(128) = 'SMG     L       '        gdiag(128) = 'SM      L       '
1025        gdiag(129) = 'SMG     L       '        gdiag(129) = 'SM      L       '
1026        gdiag(130) = 'SMG     L       '        gdiag(130) = 'SM      L       '
1027        gdiag(131) = 'SMG     L       '        gdiag(131) = 'SM      L       '
1028        gdiag(132) = 'SMG     M       '        gdiag(132) = 'SM      M       '
1029        gdiag(133) = 'SMG     M       '        gdiag(133) = 'SM      M       '
1030        gdiag(134) = 'SMG     M       '        gdiag(134) = 'SM      M       '
1031        gdiag(135) = 'SMG     M       '        gdiag(135) = 'SM      M       '
1032        gdiag(136) = 'SMG     M       '        gdiag(136) = 'SM      M       '
1033        gdiag(137) = 'SMG     M       '        gdiag(137) = 'SM      M       '
1034        gdiag(138) = 'SMG     M       '        gdiag(138) = 'SM      M       '
1035        gdiag(139) = 'SMG     M       '        gdiag(139) = 'SM      M       '
1036        gdiag(140) = 'SMGP    M       '        gdiag(140) = 'SM P    M       '
1037        gdiag(141) = 'SMGP    M       '        gdiag(141) = 'SM P    M       '
1038        gdiag(142) = 'SMGPC150M       '        gdiag(142) = 'SM PC150M       '
1039        gdiag(143) = 'SMGPC151M       '        gdiag(143) = 'SM PC151M       '
1040        gdiag(144) = 'SMGPC152M       '        gdiag(144) = 'SM PC152M       '
1041        gdiag(145) = 'SMG     M       '        gdiag(145) = 'SM      M       '
1042        gdiag(146) = 'SMGPC147M       '        gdiag(146) = 'SM PC147M       '
1043        gdiag(147) = 'SMG D   M       '        gdiag(147) = 'SM  D   M       '
1044        gdiag(148) = 'SMGPC149M       '        gdiag(148) = 'SM PC149M       '
1045        gdiag(149) = 'SMG D   M       '        gdiag(149) = 'SM  D   M       '
1046        gdiag(150) = 'SMG D   M       '        gdiag(150) = 'SM  D   M       '
1047        gdiag(151) = 'SMG D   M       '        gdiag(151) = 'SM  D   M       '
1048        gdiag(152) = 'SMG D   M       '        gdiag(152) = 'SM  D   M       '
1049        gdiag(153) = 'SMG     L       '        gdiag(153) = 'SM      L       '
1050        gdiag(154) = 'SMG     L       '        gdiag(154) = 'SM      L       '
1051        gdiag(155) = 'SMG     L       '        gdiag(155) = 'SM      L       '
1052        gdiag(156) = 'SMG     L       '        gdiag(156) = 'SM      L       '
1053        gdiag(157) = 'SMG     L       '        gdiag(157) = 'SM      L       '
1054        gdiag(158) = 'SMG     L       '        gdiag(158) = 'SM      L       '
1055        gdiag(159) = 'SMG     L       '        gdiag(159) = 'SM      L       '
1056        gdiag(160) = 'SMG     L       '        gdiag(160) = 'SM      L       '
1057        gdiag(161) = 'SMG     L       '        gdiag(161) = 'SM      L       '
1058        gdiag(162) = 'SMG     L       '        gdiag(162) = 'SM      L       '
1059        gdiag(163) = 'SMGP    L       '        gdiag(163) = 'SM P    L       '
1060        gdiag(164) = 'SMG     L       '        gdiag(164) = 'SM      L       '
1061        gdiag(165) = 'SMG     L       '        gdiag(165) = 'SM      L       '
1062        gdiag(166) = 'SMG     L       '        gdiag(166) = 'SM      L       '
1063        gdiag(167) = 'SMG     L       '        gdiag(167) = 'SM      L       '
1064        gdiag(168) = 'SMG     L       '        gdiag(168) = 'SM      L       '
1065        gdiag(169) = 'SMG     L       '        gdiag(169) = 'SM      L       '
1066        gdiag(170) = 'SMG     L       '        gdiag(170) = 'SM      L       '
1067        gdiag(171) = 'SMG     L       '        gdiag(171) = 'SM      L       '
1068        gdiag(172) = 'SMGP    L       '        gdiag(172) = 'SM P    L       '
1069        gdiag(173) = 'SMGP    L       '        gdiag(173) = 'SM P    L       '
1070        gdiag(174) = 'SMG     L       '        gdiag(174) = 'SM      L       '
1071        gdiag(175) = 'SMG     L       '        gdiag(175) = 'SM      L       '
1072        gdiag(176) = 'SMG     L       '        gdiag(176) = 'SM      L       '
1073        gdiag(177) = 'SMG     L       '        gdiag(177) = 'SM      L       '
1074        gdiag(178) = 'SMG     L       '        gdiag(178) = 'SM      L       '
1075        gdiag(179) = 'SM      M       '        gdiag(179) = 'SM      M       '
1076        gdiag(180) = 'SM      M       '        gdiag(180) = 'SM      M       '
1077        gdiag(181) = 'SM      M       '        gdiag(181) = 'SM      M       '
1078        gdiag(182) = 'SM P    M       '        gdiag(182) = 'SM P    M       '
1079        gdiag(183) = 'SM      M       '        gdiag(183) = 'SM      M       '
1080        gdiag(184) = 'SMGPC185M       '        gdiag(184) = 'SM PC185M       '
1081        gdiag(185) = 'SMGPD   M       '        gdiag(185) = 'SM PD   M       '
1082        gdiag(186) = 'SMG     L       '        gdiag(186) = 'SM      L       '
1083        gdiag(187) = 'SMG C188L       '        gdiag(187) = 'SM  C188L       '
1084        gdiag(188) = 'SMG D   L       '        gdiag(188) = 'SM  D   L       '
1085        gdiag(189) = '                '        gdiag(189) = '                '
1086        gdiag(190) = 'SMG     L       '        gdiag(190) = 'SM      L       '
1087        gdiag(191) = 'SM P    L       '        gdiag(191) = 'SM P    L       '
1088        gdiag(192) = 'SMG     L       '        gdiag(192) = 'SM      L       '
1089        gdiag(193) = 'SMG     L       '        gdiag(193) = 'SM      L       '
1090        gdiag(194) = 'SMG     L       '        gdiag(194) = 'SM      L       '
1091        gdiag(195) = 'SMG     L       '        gdiag(195) = 'SM      L       '
1092        gdiag(196) = 'SMG     L       '        gdiag(196) = 'SM      L       '
1093        gdiag(197) = 'SMG     L       '        gdiag(197) = 'SM      L       '
1094        gdiag(198) = 'SMG     L       '        gdiag(198) = 'SM      L       '
1095        gdiag(199) = 'SMG     L       '        gdiag(199) = 'SM      L       '
1096        gdiag(200) = 'SMG     L       '        gdiag(200) = 'SM      L       '
1097        gdiag(201) = 'SMG     L       '        gdiag(201) = 'SM      L       '
1098        gdiag(202) = 'SMG     M       '        gdiag(202) = 'SM      M       '
1099        gdiag(203) = 'SMG     M       '        gdiag(203) = 'SM      M       '
1100        gdiag(204) = 'SMG C210L       '        gdiag(204) = 'SM  C210L       '
1101        gdiag(205) = 'SMG     L       '        gdiag(205) = 'SM      L       '
1102        gdiag(206) = 'SMG     L       '        gdiag(206) = 'SM      L       '
1103        gdiag(207) = 'SMG     L       '        gdiag(207) = 'SM      L       '
1104        gdiag(208) = 'SMG     L       '        gdiag(208) = 'SM      L       '
1105        gdiag(209) = 'SMG     M       '        gdiag(209) = 'SM      M       '
1106        gdiag(210) = 'SMG D   L       '        gdiag(210) = 'SM  D   L       '
1107        gdiag(211) = 'SM      M       '        gdiag(211) = 'SM      M       '
1108        gdiag(212) = 'SM      M       '        gdiag(212) = 'SM      M       '
1109        gdiag(213) = 'SMGP    M       '        gdiag(213) = 'SM P    M       '
1110        gdiag(214) = 'SMGP    L       '        gdiag(214) = 'SM P    L       '
1111        gdiag(215) = 'SMGP    L       '        gdiag(215) = 'SM P    L       '
1112        gdiag(216) = 'SMGP    L       '        gdiag(216) = 'SM P    L       '
1113        gdiag(217) = 'SMGP    L       '        gdiag(217) = 'SM P    L       '
1114        gdiag(218) = 'SMGP    L       '        gdiag(218) = 'SM P    L       '
1115        gdiag(219) = 'SMGP    L       '        gdiag(219) = 'SM P    L       '
1116        gdiag(220) = 'SMGP    M       '        gdiag(220) = 'SM P    M       '
1117        gdiag(221) = 'SMG     M       '        gdiag(221) = 'SM      M       '
1118        gdiag(222) = 'SMG     M       '        gdiag(222) = 'SM      M       '
1119        gdiag(223) = 'SMG     M       '        gdiag(223) = 'SM      M       '
1120        gdiag(224) = 'SMG     M       '        gdiag(224) = 'SM      M       '
1121        gdiag(225) = 'SMG     M       '        gdiag(225) = 'SM      M       '
1122        gdiag(226) = 'SMG     M       '        gdiag(226) = 'SM      M       '
1123        gdiag(227) = 'SMG     M       '        gdiag(227) = 'SM      M       '
1124        gdiag(228) = 'SMG     M       '        gdiag(228) = 'SM      M       '
1125        gdiag(229) = 'UMG  230L       '        gdiag(229) = 'UM   230L       '
1126        gdiag(230) = 'VMG  229L       '        gdiag(230) = 'VM   229L       '
1127        gdiag(231) = 'SMG     L       '        gdiag(231) = 'SM      L       '
1128        gdiag(232) = 'UMG  233L       '        gdiag(232) = 'UM   233L       '
1129        gdiag(233) = 'VMG  232L       '        gdiag(233) = 'VM   232L       '
1130        gdiag(234) = 'UMG  235L       '        gdiag(234) = 'UM   235L       '
1131        gdiag(235) = 'VMG  234L       '        gdiag(235) = 'VM   234L       '
1132        gdiag(236) = 'UMG  237M       '        gdiag(236) = 'UM   237M       '
1133        gdiag(237) = 'VMG  236M       '        gdiag(237) = 'VM   236M       '
1134          gdiag(238) = 'SM      M       '
1135          gdiag(239) = 'SM      M       '
1136          gdiag(240) = 'SM      M       '
1137          gdiag(241) = 'SM      M       '
1138          gdiag(242) = 'UU   243M       '
1139          gdiag(243) = 'VV   242M       '
1140          gdiag(244) = 'WM      L       '
1141          gdiag(245) = 'SM      M       '
1142          gdiag(246) = 'SM      M       '
1143          gdiag(247) = 'UU   243M       '
1144          gdiag(248) = 'VV   242M       '
1145          gdiag(249) = 'WM      L       '
1146          gdiag(250) = 'UZ      M       '
1147                    
1148  c Diagnostic Levels  c Diagnostic Levels
1149  c -----------------  c -----------------
# Line 1331  c ----------------- Line 1384  c -----------------
1384        KDIAG(235)=  1        KDIAG(235)=  1
1385        KDIAG(236)= nrphys        KDIAG(236)= nrphys
1386        KDIAG(237)= nrphys        KDIAG(237)= nrphys
1387          KDIAG(238)= 1
1388          KDIAG(239)= 1
1389          KDIAG(240)= Nr
1390          KDIAG(241)= Nr
1391          KDIAG(242)= Nr
1392          KDIAG(243)= Nr
1393          KDIAG(244)= Nr
1394          KDIAG(245)= Nr
1395          KDIAG(246)= Nr
1396          KDIAG(247)= Nr
1397          KDIAG(248)= Nr
1398          KDIAG(249)= Nr
1399          KDIAG(250)= Nr
1400    
1401        do n=1,ndiagt        do n=1,ndiagt
1402        idiag (n) = 0        idiag (n) = 0
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22