Bugfix pnetcdf (#208) (#209)

* Add variables used by PNETCDF to explicit use staements. * Move implicit none statments * update explicit use statement for pnetcdf
NorESMhub · Nov 25, 2022 · 69acff8 · 69acff8
1 parent 98ade59
commit 69acff8
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/hamocc/read_netcdf_var.F90 b/hamocc/read_netcdf_var.F90
@@ -26,6 +26,9 @@ SUBROUTINE READ_NETCDF_VAR(ncid,desc,arr,klev,time,typeio)
 !**************************************************************************
       use netcdf, only: nf90_noerr,nf90_inq_varid,nf90_strerror,nf90_get_var
       use mod_xc, only: idm,itdm,jtdm,jdm,lp,mnproc,nbdy,xchalt,xcaput
+#ifdef PNETCDF
+      use mod_xc, only: i0,ii,jj,j0
+#endif
       implicit none
 #ifdef PNETCDF
 #include <pnetcdf.inc>

diff --git a/hamocc/write_netcdf_var.F90 b/hamocc/write_netcdf_var.F90
@@ -27,6 +27,9 @@ SUBROUTINE WRITE_NETCDF_VAR(ncid,desc,arr,klev,time)
       use netcdf,  only: nf90_noerr,nf90_inq_varid,nf90_strerror,nf90_put_var
       use mod_xc,  only: itdm,jtdm,jdm,lp,mnproc,nbdy,idm,xchalt,xcaget
       use mod_dia, only: iotype      
+#ifdef PNETCDF
+      use mod_xc,  only: i0,ii,jj,j0,mproc,mpe_1,nproc,xcgetrow
+#endif
       implicit none
 #ifdef PNETCDF
 #  include <pnetcdf.inc>