Changeset 2295 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Apr 24, 2020, 4:13:09 PM (5 years ago)

Author:

mlefevre

Message:

MESOSCALE. Architecture for Titan LES model.

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC

Files:

• LES/LMD_LES_MARS_install (modified) (1 diff)
• LES/modif_mars/dynphy_wrf_titan_lmd_new (added)
• SCRIPTS/copy_model (modified) (1 diff)
• WRFV2/phys/dynphy_wrf_titan_lmd_new (added)
• WRFV2/phys/dynphy_wrf_titan_lmd_new/callphysiq_mod.F (added)
• WRFV2/phys/dynphy_wrf_titan_lmd_new/iniphysiq_mod.F (added)
• WRFV2/phys/dynphy_wrf_titan_lmd_new/update_inputs_physiq_mod.F (added)
• WRFV2/phys/dynphy_wrf_titan_lmd_new/update_outputs_physiq_mod.F (added)
• WRFV2/phys/dynphy_wrf_titan_lmd_new/variables_mod.F (added)
• WRFV2/share/module_model_constants.F (modified) (1 diff)
• WRFV2/titan_lmd_new (added)
• WRFV2/titan_lmd_new/arch (added)
• WRFV2/titan_lmd_new/build_gcm (added)
• WRFV2/titan_lmd_new/ioipsl (added)
• WRFV2/titan_lmd_new/libf (added)
• WRFV2/titan_lmd_new/libf/chimtitan (added)
• WRFV2/titan_lmd_new/libf/dyn3d (added)
• WRFV2/titan_lmd_new/libf/filtrez (added)
• WRFV2/titan_lmd_new/libf/grid (added)
• WRFV2/titan_lmd_new/libf/phy_common (added)
• WRFV2/titan_lmd_new/libf/phytitan (added)
• WRFV2/titan_lmd_new/libf_gcm (added)
• WRFV2/titan_lmd_new/makegcm (added)
• WRFV2/titan_lmd_new/makelmdz (added)
• WRFV2/titan_lmd_new/makelmdz_fcm (added)

trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/LMD_LES_MARS_install

@@ -26 +26 @@
   ln -sf ../../WRFV2/venus_lmd_new .
   ln -sf ../../WRFV2/generic_lmd_new .
+  ln -sf ../../WRFV2/titan_lmd_new .
   ln -sf ../modif_mars .
   ln -sf ../../WRFV2/*.h .

trunk/MESOSCALE/LMD_MM_MARS/SRC/SCRIPTS/copy_model

@@ -210 +210 @@
     mkdir $laphysiq/libf/filtrez
     ln -sf $WRFSRC/WRFV2/$laphysiq/libf/filtrez/* $laphysiq/libf/filtrez/
+  elif [[ "${laphysiq}" == *"titan"* ]]
+  then
+    ln -sf $WRFSRC/WRFV2/$laphysiq/arch* $laphysiq/
+    ln -sf $WRFSRC/WRFV2/$laphysiq/build_gcm $laphysiq/
+    ln -sf $WRFSRC/WRFV2/$laphysiq/makelmdz* $laphysiq/
+    ln -sf $WRFSRC/WRFV2/$laphysiq/create_make_gcm $laphysiq/
+    mkdir $laphysiq/libf/phytitan
+    ln -sf $WRFSRC/WRFV2/$laphysiq/libf/phytitan/* $laphysiq/libf/phytitan/
+    cp -r $WRFSRC/WRFV2/$laphysiq/libf/phytitan/bands $laphysiq/libf/phytitan/
+    cp -r $WRFSRC/WRFV2/$laphysiq/libf/phytitan/scatterers $laphysiq/libf/phytitan/
+    mkdir $laphysiq/libf/chimtitan
+    ln -sf $WRFSRC/WRFV2/$laphysiq/libf/chimtitan/* $laphysiq/libf/chimtitan/
+    mkdir $laphysiq/libf/muphytitan
+    ln -sf $WRFSRC/WRFV2/$laphysiq/libf/muphytitan/* $laphysiq/libf/muphytitan/
+    mkdir $laphysiq/libf/phy_common
+    ln -sf $WRFSRC/WRFV2/$laphysiq/libf/phy_common/* $laphysiq/libf/phy_common/
+    mkdir $laphysiq/libf/misc
+    ln -sf $WRFSRC/WRFV2/$laphysiq/libf/misc/* $laphysiq/libf/misc/
+    mkdir $laphysiq/libf/filtrez
+    ln -sf $WRFSRC/WRFV2/$laphysiq/libf/filtrez/* $laphysiq/libf/filtrez/
   fi
   mkdir $laphysiq/libo

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

@@ -260 +260 @@
      TT00=460.
      nu=0.35
+    ELSE if ( planet == "titan") then
+     g            = 1.35
+     r_d          = 290.6
+     !cpp          = 1000.
+     cp           = 1051.
+     cliq         = 4190.
+     psat         = 610.78
+     t0           = 94. ! earth : 300
+     p0           = 1.45e5
+     p1000mb      = 1.45e5
+     reradius     = 1./2575500.0 ! Rayon de mars (m)  ~6051800 m
+     rad          = 2575500.0
+     wmugaz       = 28.6
+     womeg        = 0.2992549E-06 !!!!!!!!!!!!!!!!!!!
+     wdaysec      = 1377665.28
+     TT00=0.
+     nu=0.
     ELSE if (( planet == "prescribed").or.(planet == "generic")) then
      open(17,file='planet_constant',form='formatted',status='old')