Fix single column compilation issue after BLOM restructuring (#366)

NorESMhub · Jul 9, 2024 · 5d62993 · 5d62993
1 parent c1c0658
commit 5d62993
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/hamocc/mo_aufr_bgc.F90 b/hamocc/mo_aufr_bgc.F90
@@ -101,7 +101,7 @@ subroutine aufr_bgc(kpie,kpje,kpke,ntr,ntrbgc,itrbgc,trc,kplyear,kplmon,kplday,o
     use mo_param_bgc,       only: bifr13_ini,bifr14_ini,c14fac,re1312,re14to,prei13,prei14
     use mo_netcdf_bgcrw,    only: read_netcdf_var
 #ifdef PNETCDF
-    use mod_xc,             only: mpicomm,mpierr,mpireq,mpistat
+    use mod_xc,             only: mpicomm
 #endif
 
     ! Arguments

diff --git a/hamocc/mo_aufw_bgc.F90 b/hamocc/mo_aufw_bgc.F90
@@ -71,7 +71,7 @@ subroutine aufw_bgc(kpie,kpje,kpke,ntr,ntrbgc,itrbgc,trc,
 
     use netcdf,         only: nf90_64bit_offset,nf90_global,nf90_noerr,nf90_nofill,nf90_def_dim,   &
                               nf90_enddef,nf90_close,nf90_create,nf90_put_att,nf90_set_fill
-    use mod_xc,         only: nbdy,itdm,jtdm,mnproc,iqr,jqr,xchalt,mpicomm,mpierr,mpireq,mpistat
+    use mod_xc,         only: nbdy,itdm,jtdm,mnproc,iqr,jqr,xchalt
     use mod_dia,        only: iotype
     use mo_carbch,      only: co2star,co3,hi,satoxy,nathi
     use mo_control_bgc, only: io_stdo_bgc,ldtbgc,rmasks,rmasko,use_cisonew,use_AGG,use_BOXATM,     &
@@ -88,6 +88,9 @@ subroutine aufw_bgc(kpie,kpje,kpke,ntr,ntrbgc,itrbgc,trc,
                               ipowno3,isssc12,issso12,issssil,issster,iprefsilica,ianh4,iano2,     &
                               ipownh4,ipown2o,ipowno2
     use mo_netcdf_bgcrw,only: write_netcdf_var,netcdf_def_vardb
+#ifdef PNETCDF
+    use mod_xc,         only: mpicomm
+#endif
 
     ! Arguments
     integer,          intent(in) :: kpie             ! 1st dimension of model grid.