[Dart-dev] DART/branches Revision: 11255

[dart at ucar.edu]

hendric at ucar.edu
2017-03-08 17:14:52 -0700 (Wed, 08 Mar 2017)
86
hopefully changing the last set of character arrays that need to
be the same lenght.




Modified: DART/branches/rma_trunk/models/POP/model_mod.f90
===================================================================
--- DART/branches/rma_trunk/models/POP/model_mod.f90	2017-03-09 00:00:33 UTC (rev 11254)
+++ DART/branches/rma_trunk/models/POP/model_mod.f90	2017-03-09 00:14:52 UTC (rev 11255)
@@ -3881,11 +3881,11 @@
 
 ! strings must all be the same length for the gnu compiler
 state_variables( 1:5*num_state_table_columns ) = &
-   (/ 'SALT_CUR                  ', 'QTY_SALINITY             ', 'UPDATE                    ', &
-      'TEMP_CUR                  ', 'QTY_POTENTIAL_TEMPERATURE', 'UPDATE                    ', &
-      'UVEL_CUR                  ', 'QTY_U_CURRENT_COMPONENT  ', 'UPDATE                    ', &
-      'VVEL_CUR                  ', 'QTY_V_CURRENT_COMPONENT  ', 'UPDATE                    ', &
-      'PSURF_CUR                 ', 'QTY_SEA_SURFACE_PRESSURE ', 'UPDATE                    ' /)
+   (/ 'SALT_CUR                  ', 'QTY_SALINITY              ', 'UPDATE                    ', &
+      'TEMP_CUR                  ', 'QTY_POTENTIAL_TEMPERATURE ', 'UPDATE                    ', &
+      'UVEL_CUR                  ', 'QTY_U_CURRENT_COMPONENT   ', 'UPDATE                    ', &
+      'VVEL_CUR                  ', 'QTY_V_CURRENT_COMPONENT   ', 'UPDATE                    ', &
+      'PSURF_CUR                 ', 'QTY_SEA_SURFACE_PRESSURE  ', 'UPDATE                    ' /)
 
 end subroutine use_default_state_variables
 

Modified: DART/branches/rma_trunk/models/wrf/model_mod.f90
===================================================================
--- DART/branches/rma_trunk/models/wrf/model_mod.f90	2017-03-09 00:00:33 UTC (rev 11254)
+++ DART/branches/rma_trunk/models/wrf/model_mod.f90	2017-03-09 00:14:52 UTC (rev 11255)
@@ -7893,48 +7893,48 @@
 
 ! fill default state variable table here.
 row = row+1
-default_table(:,row) = (/ 'U                    ', &
-                          'QTY_U_WIND_COMPONENT', &
-                          'TYPE_U               ', &
-                          'UPDATE               ', &
-                          '999                  '  /)
+default_table(:,row) = (/ 'U                         ', &
+                          'QTY_U_WIND_COMPONENT      ', &
+                          'TYPE_U                    ', &
+                          'UPDATE                    ', &
+                          '999                       '  /)
 row = row+1
-default_table(:,row) = (/ 'V                    ', &
-                          'QTY_V_WIND_COMPONENT', &
-                          'TYPE_V               ', &
-                          'UPDATE               ', &
-                          '999                  '  /)
+default_table(:,row) = (/ 'V                         ', &
+                          'QTY_V_WIND_COMPONENT      ', &
+                          'TYPE_V                    ', &
+                          'UPDATE                    ', &
+                          '999                       '  /)
 row = row+1
-default_table(:,row) = (/ 'W                     ', &
-                          'QTY_VERTICAL_VELOCITY', &
-                          'TYPE_W                ', &
-                          'UPDATE                ', &
-                          '999                   '  /)
+default_table(:,row) = (/ 'W                         ', &
+                          'QTY_VERTICAL_VELOCITY     ', &
+                          'TYPE_W                    ', &
+                          'UPDATE                    ', &
+                          '999                       '  /)
 row = row+1
-default_table(:,row) = (/ 'PH                      ', &
-                          'QTY_GEOPOTENTIAL_HEIGHT', &
-                          'TYPE_GZ                 ', &
-                          'UPDATE                  ', &
-                          '999                     '  /)
+default_table(:,row) = (/ 'PH                        ', &
+                          'QTY_GEOPOTENTIAL_HEIGHT   ', &
+                          'TYPE_GZ                   ', &
+                          'UPDATE                    ', &
+                          '999                       '  /)
 row = row+1
 default_table(:,row) = (/ 'T                         ', &
-                          'QTY_POTENTIAL_TEMPERATURE', &
+                          'QTY_POTENTIAL_TEMPERATURE ', &
                           'TYPE_T                    ', &
                           'UPDATE                    ', &
                           '999                       '  /)
 row = row+1
-default_table(:,row) = (/ 'MU           ', &
-                          'QTY_PRESSURE', &
-                          'TYPE_MU      ', &
-                          'UPDATE       ', &
-                          '999          '  /)
+default_table(:,row) = (/ 'MU                        ', &
+                          'QTY_PRESSURE              ', &
+                          'TYPE_MU                   ', &
+                          'UPDATE                    ', &
+                          '999                       '  /)
 
 row = row+1
-default_table(:,row) = (/ 'QVAPOR                 ', &
-                          'QTY_VAPOR_MIXING_RATIO', &
-                          'TYPE_QV                ', &
-                          'UPDATE                 ', &
-                          '999                    '  /)
+default_table(:,row) = (/ 'QVAPOR                    ', &
+                          'QTY_VAPOR_MIXING_RATIO    ', &
+                          'TYPE_QV                   ', &