Changeset 95 for trunk/mesoscale/LMD_MM_MARS

Timestamp:

Mar 16, 2011, 5:46:35 PM (14 years ago)

Author:

aslmd

Message:

LMD_MM_MARS: corrections bugs API et map_uvt pour graphiques

File:

• trunk/mesoscale/LMD_MM_MARS/SRC/POSTPROC/api.F90 (modified) (4 diffs)

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

@@ -48 +48 @@
       ! MARS CONSTANTS
       ! 
-      REAL, PARAMETER :: Rd  = 192.     ! gas constant m2 s-2 K-1
-      REAL, PARAMETER :: Cp  = 844.6    ! r= 8.314511E+0*1000.E+0/mugaz
-      !REAL, PARAMETER :: Rd  = 191.0
-      !REAL, PARAMETER :: Cp  = 744.5
+      !REAL, PARAMETER :: Rd  = 192.     ! gas constant m2 s-2 K-1
+      !REAL, PARAMETER :: Cp  = 844.6    ! r= 8.314511E+0*1000.E+0/mugaz
+      REAL, PARAMETER :: Rd  = 191.0
+      REAL, PARAMETER :: Cp  = 744.5
       REAL, PARAMETER :: RCP = Rd/Cp
       REAL, PARAMETER :: p0  = 610.
@@ -377 +377 @@
               dvalj(j) = num_metgrid_levels
         ELSE IF ( LINLOG .eq. 3 ) THEN 
-              dnamej(j) = 'altitude'
+              dnamej(j) = 'bottom_top' !'altitude'
               dvalj(j) = num_metgrid_levels
         ELSE 
-              dnamej(j) = 'altitude_abg'
+              dnamej(j) = 'bottom_top' !'altitude_abg'
               dvalj(j) = num_metgrid_levels
         ENDIF
@@ -752 +752 @@
                  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 = 'altitude' 
-                 IF (LINLOG .eq. 4) test_dim_name = 'altitude_abg'
+                 IF (LINLOG .eq. 3) test_dim_name = 'bottom_top' !'altitude' 
+                 IF (LINLOG .eq. 4) test_dim_name = 'bottom_top' !'altitude_abg'
                  interpolate = .TRUE.
             ENDIF
@@ -929 +929 @@
                                         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 = 'altitude'
-                                        IF (( ii == 3 ) .and. (LINLOG .eq. 4))  test_dim_name = 'altitude_abg'
+                                        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 == 4 ) test_dim_name = 'Time'
                                         DO jj = 1,j