Mercurial > hgweb > burst-coupling

changeset 58:99720e429059

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Variables nclonid etc. must be initialised, because ncdimst is passed to NETCDF_DEF_VARDB() in all cases.
author Marco van Hulten <marco@hulten.org>
date Thu, 03 Jan 2019 13:31:44 +0100
parents 354c3347b4a3
children 5961380e5826
files aufw_bgc.F90 aufw_bgc_onlysed.F90
diffstat 2 files changed, 10 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/aufw_bgc.F90	Tue Dec 18 11:51:56 2018 +0100
+++ b/aufw_bgc.F90	Thu Jan 03 13:31:44 2019 +0100
@@ -85,10 +85,11 @@
       INTEGER           :: i,j
       CHARACTER(LEN=80) :: err_text,rstfnm
 
-      INTEGER ncid,ncvarid,ncstat,ncoldmod,ncdimst(4)                    &
-     &       ,nclatid,nclonid,nclevid,nclev2id,ncksid,ncks2id,ncbur2id  &
-     &       ,nstart2(2),ncount2(2),nstride2(2),idate(5)
-      REAL rmissing
+      integer           :: ncid, ncvarid, ncstat, ncoldmod, ncdimst(4)        &
+         &                ,nclatid=-1, nclonid=-1, nclevid =-1, nclev2id=-1   &
+         &                ,ncksid =-1, ncks2id=-1, ncbur2id=-1                &
+         &                ,nstart2(2), ncount2(2), nstride2(2), idate(5)
+      real              :: rmissing
 #ifdef PNETCDF
       integer*4 ,save :: info=MPI_INFO_NULL
       integer        mpicomm,mpierr,mpireq,mpistat
--- a/aufw_bgc_onlysed.F90	Tue Dec 18 11:51:56 2018 +0100
+++ b/aufw_bgc_onlysed.F90	Thu Jan 03 13:31:44 2019 +0100
@@ -35,7 +35,7 @@
    use mo_sedmnt_offline
    use mo_control_bgc, only: io_stdo_bgc, ldtbgc, rmasko
    use mo_param1_bgc 
-   use mod_xc,         only: itdm,jtdm,mnproc,xchalt
+   use mod_xc,         only: itdm, jtdm, mnproc, xchalt
    use mod_dia,        only: iotype
 
    implicit none
@@ -48,9 +48,10 @@
 
 ! Local variables
 !
-   integer           :: ncid,ncvarid,ncstat,ncoldmod,ncdimst(4)      &
-  &                    ,nclatid,nclonid,otraid,carkid,timeid         &
-  &                    ,nstart2(2),ncount2(2),nstride2(2),idate(5)
+   integer           :: ncid, ncvarid, ncstat, ncoldmod, ncdimst(4)        &
+      &                ,nclatid=-1, nclonid=-1, otraid=-1, carkid=-1       &
+      &                ,timeid =-1                                         &
+      &                ,nstart2(2), ncount2(2), nstride2(2), idate(5)
    real              :: keqb_one(kpie,kpje)
    real              :: rmissing
 #ifdef PNETCDF