CESM3_SLH update CAM mozart modules

RafaPedroFernandez · Sep 20, 2024 · 6d33334 · 6d33334
1 parent 394a011
commit 6d33334
Show file tree

Hide file tree

Showing 2 changed files with 362 additions and 16 deletions.
diff --git a/src/chemistry/mozart/mo_chemini.F90 b/src/chemistry/mozart/mo_chemini.F90
@@ -69,11 +69,18 @@ subroutine chemini &
     use mo_strato_rates,   only : init_strato_rates
     use mo_cph,            only : init_cph
     use mo_sad,            only : sad_inti
+!rpf_CESM3_SLH - merging SLH halogen routines in a single module
+!   use mo_sadtrop,        only : sadtrop_inti
+    use mo_sad,            only : sadtrop_inti
+!rpf_CESM3_SLH - merging SLH halogen routines in a single module
     use euvac,             only : euvac_init
     use mo_heatnirco2,     only : heatnirco2_init
     use mo_waccm_hrates,   only : init_hrates
     use mo_aurora,         only : aurora_inti
-    use clybry_fam,        only : clybry_fam_init
+!rpf_CESM2_SLH
+!   use clybry_fam,        only : clybry_fam_init
+    use clybryiy_fam,      only : clybryiy_fam_init
+!rpf_CESM2_SLH
     use mo_neu_wetdep,     only : neu_wetdep_init
     use physics_buffer,    only : physics_buffer_desc
     use cam_abortutils,    only : endrun
@@ -167,6 +174,10 @@ subroutine chemini &
     !-----------------------------------------------------------------------
     call sad_inti(pbuf2d)
     if (masterproc) write(iulog,*) 'chemini: after sad_inti on node ',iam
+!rpf_CESM2_SLH
+    call sadtrop_inti(pbuf2d)
+    if (masterproc) write(iulog,*) 'chemini: after sadtrop_inti on node ',iam
+!rpf_CESM2_SLH
 
     !-----------------------------------------------------------------------
     !	... initialize the dry deposition module
@@ -210,7 +221,10 @@ subroutine chemini &
     call neu_wetdep_init()
     if (masterproc) write(iulog,*) 'chemini: after wetdep_init'
 
-    call clybry_fam_init()
+!rpf_CESM2_SLH
+!   call clybry_fam_init()
+    call clybryiy_fam_init()
+!rpf_CESM2_SLH
 
     if (masterproc) write(iulog,*) 'chemini: finished on node ',iam