Changeset 1604 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Sep 16, 2016, 12:09:13 PM (8 years ago)

Author:

mlefevre

Message:

Added the reading of planet_constant file for prescribed planet

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_model_constants.F (modified) (2 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_model_constants.F

@@ -255 +255 @@
      womeg        = 0.2992549E-06
      wdaysec      = 0.1008707E08
+    ELSE if ( planet == "prescribed") then
+     open(17,file='planet_constant',form='formatted',status='old')
+     rewind(17)
+     read(17,*) g
+     read(17,*) cp
+     read(17,*) molmas
+     read(17,*) t0
+     read(17,*) p0
+     read(17,*) rad
+     close(17)
+     r_d=8.314/(molmas*1e-3)
+     p1000mb=p0
+     reradius=1./rad
     Else 
      write(*,*) "unknown planet type:", planet
@@ -275 +288 @@
      rfcp         =0.25/cp
      p608         =rvovrd-1.
-     z_scale      =r_d*t0/g
+     z_scale      =(r_d*t0/g)*1e-3
     write(*,*) "planet : ", planet
     write(*,*) "g = ", g