Changeset 12 for trunk/mesoscale/LMD_MM_MARS/SRC/WPS/geogrid/src

Timestamp:

Jan 24, 2011, 1:57:13 PM (15 years ago)

Author:

aslmd

Message:

spiga@svn-planeto:les copains j ai fait ce changement

File:

• trunk/mesoscale/LMD_MM_MARS/SRC/WPS/geogrid/src/constants_module.f90 (modified) (2 diffs)

trunk/mesoscale/LMD_MM_MARS/SRC/WPS/geogrid/src/constants_module.f90

@@ -7 +7 @@
 
    real, parameter :: PI = 3.141592653589793
-   real, parameter :: OMEGA_E = 7.292e-5 ! Angular rotation rate of the earth
+!   real, parameter :: OMEGA_E = 7.292e-5 ! Angular rotation rate of the earth
+!*** Mars
+   real, parameter :: OMEGA_E = 7.0721E-5 ! Angular rotation rate of Mars
+!*** Mars
 
    real, parameter :: DEG_PER_RAD = 180./PI
@@ -14 +17 @@
    ! Mean Earth Radius in m.  The value below is consistent
    ! with NCEP's routines and grids.
+!************************************************************************
+! Earth ellipsoid: only used on specific polar stereographic projections
+! - equatorial axis
    real, parameter :: A_WGS84 = 6378137.
+! - polar axis
    real, parameter :: B_WGS84 = 6356752.314
    real, parameter :: RE_WGS84 = A_WGS84
    real, parameter :: E_WGS84 = 0.081819192
-   real, parameter :: EARTH_RADIUS_M = 6370000.   ! same as MM5 system
+!************************************************************************
+!   real, parameter :: EARTH_RADIUS_M = 6370000.   ! same as MM5 system
+!*** Mars
+!!necessary if WRFSI intermediate file is used
+!!instead of WPS intermediate file format
+   real, parameter :: EARTH_RADIUS_M = 3397200.   ! same as MM5 system 
+!*** Mars
    real, parameter :: EARTH_CIRC_M = 2.*PI*EARTH_RADIUS_M