Changeset 3908 for LMDZ6/trunk/makelmdz_fcm

Timestamp:

May 20, 2021, 9:11:13 AM (3 years ago)

Author:

idelkadi

Message:

Online implementation of the radiative transfer code ECRAD in the LMDZ model.

• Inclusion of the ecrad directory containing the sources of the ECRAD code
  • interface routine : radiation_scheme.F90
• Adaptation of compilation scripts :
  • compilation under CPP key CPP_ECRAD
  • compilation with option "-rad ecard" or "-ecard true"
  • The "-rad old/rtm/ecran" build option will need to replace the "-rrtm true" and "-ecrad true" options in the future.
• Runing LMDZ simulations with ecrad, you need :
  • logical key iflag_rrtm = 2 in physiq.def
  • namelist_ecrad (DefLists?)
  • the directory "data" containing the configuration files is temporarily placed in ../libfphylmd/ecrad/
• Compilation and execution are tested in the 1D case. The repository under svn would allow to continue the implementation work: tests, verification of the results, ...

File:

• LMDZ6/trunk/makelmdz_fcm (modified) (6 diffs)

LMDZ6/trunk/makelmdz_fcm

@@ -25 +25 @@
 inlandsis=false
 rrtm=false
+ecrad=false
+rad="old"
 dust=false
 strataer=false
@@ -53 +55 @@
 DYN_PHYS_SUB_PATH=$LMDGCM/.void_dir
 PHY_COMMON_PATH=$LMDGCM/.void_dir
-RRTM_PATH=$LMDGCM/.void_dir
+RAD_PATH=$LMDGCM/.void_dir
 INLANDSIS_PATH=$LMDGCM/.void_dir
 DUST_PATH=$LMDGCM/.void_dir
@@ -100 +102 @@
 [-inlandsis true/false]  : compile with/without inlandsis package (default: false)
 [-rrtm true/false]    : compile with/without rrtm package (default: false)
+[-ecrad true/false]    : compile with/without ecrad package (default: false)
+[-rad old/rrtm/ecrad]    : compile with old/rrtm/ecrad radiatif code (default: old)
 [-dust true/false]    : compile with/without the dust package by Boucher and co (default: false)
 [-strataer true/false]    : compile with/without the strat aer package by Boucher and co (default: false)
@@ -150 +154 @@
 
       "-inlandsis")
-    inlandsis="$2" ; shift ; shift ;;
+          inlandsis="$2" ; shift ; shift ;;
 
       "-rrtm")
-          rrtm="$2" ; shift ; shift ;;
+          rrtm="$2" ; if [ "$2" = "false" ] ; then rad="old" ; else rad="rrtm" ; fi ; shift ; shift ;;
+
+      "-ecrad")
+          ecrad="$2" ; if [ "$2" = "true" ] ; then rad="ecrad" ; fi ; shift ; shift ;;
+
+      "-rad")
+          rad="$2" ; shift ; shift ;;
 
       "-dust")
@@ -416 +426 @@
 
 
-if [[ "$rrtm" == "true" ]]
+if [[ "$rad" == "rrtm" ]]
 then
    CPP_KEY="$CPP_KEY CPP_RRTM"
-   RRTM_PATH="$LIBFGCM/%PHYS/rrtm"
+   RAD_PATH="$LIBFGCM/%PHYS/rrtm"
+fi
+if [[ "$rad" == "ecrad" ]]
+then
+   CPP_KEY="$CPP_KEY CPP_ECRAD"
+   RAD_PATH="$LIBFGCM/%PHYS/ecrad"
 fi
 
@@ -683 +698 @@
 echo "%DYN_PHYS      $DYN_PHYS_PATH" >> $config_fcm
 echo "%DYN_PHYS_SUB  $DYN_PHYS_SUB_PATH" >> $config_fcm
-echo "%RRTM          $RRTM_PATH"     >> $config_fcm
+echo "%RAD           $RAD_PATH"     >> $config_fcm
 echo "%DUST          $DUST_PATH"     >> $config_fcm
 echo "%STRATAER      $STRATAER_PATH" >> $config_fcm