Changeset 2295

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

Files:

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

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')

trunk/MESOSCALE/LMD_MM_MARS/makemeso

@@ -76 +76 @@
 #             venus_lmd_new
 #             generic_lmd_new              
+#             titan_lmd_new
 #
 # makemeso -f                ## fresh start [clean -a]
@@ -695 +696 @@
   then
     cd libf/phystd
+  elif [[ "${phys}" == *"titan"* ]]
+  then
+    cd libf/phytitan
   fi
   \rm dimphys.h 2> /dev/null
@@ -749 +753 @@
       echo 'DEBUG DEBUG DEBUG DEBUG'
       nohup ./makelmdz -debug -t ${tra} -p std -b 36x32 -s 1 -d 25 rcm1d -arch X64_MESU -cpp MESOSCALE | tee libo/log_compile_phys | grep 'warnings' >> libo/log_compile_phys #Proxb
+    elif [[ "${phys}" == *"titan"* ]]
+    then
+      echo 'DEBUG DEBUG DEBUG DEBUG'
+      nohup makelmdz -debug -full -t ${tra} -p titan -b 23x23 -d 25 rcm1d -cpp MESOSCALE | tee libo/log_compile_phys | grep 'warnings' >> libo/log_compile_phys
     fi
   else
@@ -769 +777 @@
       nohup ./makelmdz -t 1 -p std -b 38x36 -full -s 1 -d 25 rcm1d -arch mascaret_gfortran_para -cpp MESOSCALE | tee libo/log_compile_phys | grep 'warnings' >> libo/log_compile_phys #Proxb
       nohup ./makelmdz -t 1 -p std -b 38x36 -s 1 -d 25 rcm1d -arch mascaret_gfortran_para -cpp MESOSCALE | tee libo/log_compile_phys2 | grep 'warnings' >> libo/log_compile_phys2 #Proxb
+    elif [[ "${phys}" == *"titan"* ]]
+    then
+      nohup makelmdz -full -t ${tra} -p titan -b 23x23 -d 25 rcm1d -cpp MESOSCALE | tee libo/log_compile_phys | grep 'warnings' >> libo/log_compile_phys
     fi
   fi
@@ -806 +817 @@
    then
    ar x libphystd.a
+   ar x libmisc.a
+   ar x libphy_common.a
+   ar x libioipsl.a
+  elif [[ "${phys}" == *"titan"* ]]
+  then
+   ar x libchimtitan.a
+   ar x libphytitan.a
    ar x libmisc.a
    ar x libphy_common.a