Changeset 2011 for trunk/MESOSCALE

Timestamp:

Oct 18, 2018, 3:19:37 PM (6 years ago)

Author:

mlefevre

Message:

WRF architecture and physical constant for the generic model

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC

Files:

• LES/modif_mars/dynphy_wrf_generic_lmd_new (added)
• SCRIPTS/copy_model (modified) (1 diff)
• WRFV2/phys/dynphy_wrf_generic_lmd_new (added)
• WRFV2/phys/dynphy_wrf_generic_lmd_new/callphysiq_mod.F (added)
• WRFV2/phys/dynphy_wrf_generic_lmd_new/iniphysiq_mod.F (added)
• WRFV2/phys/dynphy_wrf_generic_lmd_new/update_inputs_physiq_mod.F (added)
• WRFV2/phys/dynphy_wrf_generic_lmd_new/update_outputs_physiq_mod.F (added)
• WRFV2/phys/dynphy_wrf_generic_lmd_new/variables_mod.F (added)
• WRFV2/share/module_model_constants.F (modified) (1 diff)

trunk/MESOSCALE/LMD_MM_MARS/SRC/SCRIPTS/copy_model

@@ -193 +193 @@
     mkdir $laphysiq/libf/filtrez
     ln -sf $WRFSRC/WRFV2/$laphysiq/libf/filtrez/* $laphysiq/libf/filtrez/
+  elif [[ "${laphysiq}" == *"generic"* ]]
+  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/makegcm* $laphysiq/
+    ln -sf $WRFSRC/WRFV2/$laphysiq/create_make_gcm $laphysiq/
+    mkdir $laphysiq/libf/phystd
+    ln -sf $WRFSRC/WRFV2/$laphysiq/libf/phystd/* $laphysiq/libf/phystd/
+    cp -r $WRFSRC/WRFV2/$laphysiq/libf/phystd/bands $laphysiq/libf/phystd/
+    cp -r $WRFSRC/WRFV2/$laphysiq/libf/phystd/scatterers $laphysiq/libf/phystd/
+    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 == "prescribed") then
+    ELSE if (( planet == "prescribed").or.(planet == "generic")) then
      open(17,file='planet_constant',form='formatted',status='old')
      rewind(17)