Perturb all chem emissions. (NCAR#64)

* Perturb all chem emissions. * Move emis_multiplier initialization back to gsdchem/gsd_chem_seas_wrapper.F90 * Perturb diagnostics too * point to NOAA-GSL repo
SamuelTrahanNOAA · Dec 22, 2020 · 4298eb7 · 4298eb7
1 parent 0a9e5ff
commit 4298eb7
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/ccpp/physics b/ccpp/physics
diff --git a/gfsphysics/GFS_layer/GFS_typedefs.F90 b/gfsphysics/GFS_layer/GFS_typedefs.F90
@@ -2853,10 +2853,10 @@ subroutine coupling_create (Coupling, IM, Model)
       Coupling%condition = clear_val
     endif
 
-    if (Model%ca_global_emis .or. Model%do_sppt_emis) then
+    !if (Model%ca_global_emis .or. Model%do_sppt_emis) then
       allocate (Coupling%emis_multiplier (IM))
-      Coupling%emis_multiplier = clear_val
-    endif
+      Coupling%emis_multiplier = 1.0
+    !endif
 
     ! -- GSDCHEM coupling options
     if (Model%cplchm) then
+7 −3		gsdchem/dust_fengsha_mod.F90
+23 −9		gsdchem/gsd_chem_anthropogenic_wrapper.F90
+25 −0		gsdchem/gsd_chem_anthropogenic_wrapper.meta
+14 −0		gsdchem/gsd_chem_dust_wrapper.F90
+25 −0		gsdchem/gsd_chem_dust_wrapper.meta
+10 −44		gsdchem/gsd_chem_plume_wrapper.F90
+0 −68		gsdchem/gsd_chem_plume_wrapper.meta
+42 −1		gsdchem/gsd_chem_seas_wrapper.F90
+93 −0		gsdchem/gsd_chem_seas_wrapper.meta
+8 −4		gsdchem/seas_mod.F90