Changeset 202 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Jul 11, 2011, 12:02:13 AM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: python graphics interface. much better handling of picture names and a few improvements (new generic functions)

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/POSTPROC/api.F90 (modified) (3 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/POSTPROC/api.F90

@@ -418 +418 @@
               dvalj(j) = num_metgrid_levels
         ELSE IF ( LINLOG .eq. 3 ) THEN 
-              dnamej(j) = 'bottom_top' !'altitude'
+              dnamej(j) = 'altitude' !'bottom_top' !'altitude'
               dvalj(j) = num_metgrid_levels
         ELSE 
-              dnamej(j) = 'bottom_top' !'altitude_abg'
+              dnamej(j) = 'altitude_abg' !'bottom_top' !'altitude_abg'
               dvalj(j) = num_metgrid_levels
         ENDIF
@@ -793 +793 @@
                  IF ( test_dim_name == 'bottom_top_stag' ) fix_meta_stag = .TRUE.
                  IF (LINLOG .le. 2) test_dim_name = 'pressure'
-                 IF (LINLOG .eq. 3) test_dim_name = 'bottom_top' !'altitude' 
-                 IF (LINLOG .eq. 4) test_dim_name = 'bottom_top' !'altitude_abg'
+                 IF (LINLOG .eq. 3) test_dim_name = 'altitude' !'bottom_top' !'altitude' 
+                 IF (LINLOG .eq. 4) test_dim_name = 'altitude_abg' !'bottom_top' !'altitude_abg'
                  interpolate = .TRUE.
             ENDIF
@@ -970 +970 @@
                                         IF ( ii == 2 ) test_dim_name = 'south_north'
                                         IF (( ii == 3 ) .and. (LINLOG .le. 2))  test_dim_name = 'pressure'
-                                        IF (( ii == 3 ) .and. (LINLOG .eq. 3))  test_dim_name = 'bottom_top' !'altitude'
-                                        IF (( ii == 3 ) .and. (LINLOG .eq. 4))  test_dim_name = 'bottom_top' !'altitude_abg'
+                                        IF (( ii == 3 ) .and. (LINLOG .eq. 3))  test_dim_name = 'altitude' !'bottom_top' !'altitude'
+                                        IF (( ii == 3 ) .and. (LINLOG .eq. 4))  test_dim_name = 'altitude_abg' !'bottom_top' !'altitude_abg'
                                         IF ( ii == 4 ) test_dim_name = 'Time'
                                         DO jj = 1,j