Changeset 87 for trunk/mesoscale/LMD_MM_MARS/SRC/POSTPROC/api.F90

Timestamp:

Mar 3, 2011, 10:04:26 PM (14 years ago)

Author:

aslmd

Message:

MAJ 000-README-svn et 000-USERS. Version reference mars et mesoscale (avant nouvelle campagne de modification discutee en reunion).

File:

• trunk/mesoscale/LMD_MM_MARS/SRC/POSTPROC/api.F90 (modified) (2 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.
@@ -1128 +1128 @@
       ! WELL...
       !
-      write(6,*) 
+      write(6,*) "I used Cp, R : ",Cp,Rd 
+      write(6,*)
       write(6,*) "##########################################"
       write(6,*) " END of API PROGRAM - SUCCESS so far"