Skip to content

Commit

Permalink
Remove unused parameters in wrt* subroutine calls in ncout_hamocc.F90
Browse files Browse the repository at this point in the history
  • Loading branch information
@JorgSchwinger
JorgSchwinger committed Jan 10, 2023
1 parent 0802d11 commit 440de2d
Show file tree
Hide file tree
Showing 2 changed files with 228 additions and 531 deletions.
112 changes: 31 additions & 81 deletions hamocc/mo_bgcmean.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -55,7 +55,7 @@ MODULE mo_bgcmean
!**********************************************************************
use mod_xc, only: ii,jj,kk,idm,jdm,kdm,nbdy,ifp,isp,ilp,mnproc,ip
use mod_dia, only: ddm,depthslev,depthslev_bnds,nstepinday,pbath
use mod_nctools, only:ncpack,nccomp,nccopa,ncwrtr
use mod_nctools, only: ncpack,nccomp,nccopa,ncwrtr
use netcdf, only: nf90_fill_double
use mo_param1_bgc, only: ks
use mo_control_bgc, only: get_bgc_namelist
Expand Down Expand Up @@ -1616,8 +1616,7 @@ END SUBROUTINE finlyr



SUBROUTINE wrtsrf(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
& vunits)
SUBROUTINE wrtsrf(pos,frmt,sfac,offs,cmpflg,vnm)
!
! --- ------------------------------------------------------------------
! --- Description: writes diagnostic 2d field to file
Expand All @@ -1635,18 +1634,16 @@ SUBROUTINE wrtsrf(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
! --- int cmpflg (in) : compression flag; only wet points are
! --- written IF flag is set to 1
! --- char vnm (in) : variable name used in nc-file
! --- char vlngnm (in) : variable long name (skipped IF ' ')
! --- char vstdnm (in) : variable standard name (skipped IF ' ')
! --- char vunits (in) : variable units (skipped IF ' ')
! --- ------------------------------------------------------------------
!
IMPLICIT NONE
!
REAL ::sfac,offs
INTEGER :: frmt,cmpflg,pos,n
CHARACTER(LEN=*) :: vnm,vlngnm,vstdnm,vunits
REAL, intent(in) :: sfac,offs
INTEGER, intent(in) :: frmt,cmpflg,pos
CHARACTER(LEN=*),intent(in) :: vnm
!
CHARACTER(LEN=100) :: dims
INTEGER :: n
CHARACTER(LEN=100) :: dims
!
! --- Check whether field should be written
IF (pos.EQ.0 .OR. frmt.EQ.0) RETURN
Expand Down Expand Up @@ -1686,20 +1683,12 @@ SUBROUTINE wrtsrf(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
ELSE
STOP 'unknown output format '
ENDIF
!
! --- Def.NE.attributes
! IF (len(trim(vunits)).NE.0) CALL ncattr('units',vunits)
! IF (len(trim(vlngnm)).NE.0) CALL ncattr('long_name',vlngnm)
! IF (len(trim(vstdnm)).NE.0) CALL ncattr('standard_name',vstdnm)
! CALL ncattr('coordinates','plon plat')
! CALL ncattr('cell_measures','area: parea')
!
END SUBROUTINE wrtsrf



SUBROUTINE wrtlyr(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
& vunits)
SUBROUTINE wrtlyr(pos,frmt,sfac,offs,cmpflg,vnm)
!
! --- ------------------------------------------------------------------
! --- Description: writes diagnostic layer field to file
Expand All @@ -1717,18 +1706,16 @@ SUBROUTINE wrtlyr(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
! --- int cmpflg (in) : compression flag; only wet points are
! --- written IF flag is set to 1
! --- char vnm (in) : variable name used in nc-file
! --- char vlngnm (in) : variable long name (skipped IF ' ')
! --- char vstdnm (in) : variable standard name (skipped IF ' ')
! --- char vunits (in) : variable units (skipped IF ' ')
! --- ------------------------------------------------------------------
!
IMPLICIT NONE
!
REAL ::sfac,offs
INTEGER :: frmt,cmpflg,pos,n
CHARACTER(LEN=*) :: vnm,vlngnm,vstdnm,vunits
REAL, intent(in) :: sfac,offs
INTEGER, intent(in) :: frmt,cmpflg,pos
CHARACTER(LEN=*),intent(in) :: vnm
!
CHARACTER(LEN=100) :: dims
INTEGER :: n
CHARACTER(LEN=100) :: dims
!
! --- Check whether field should be written
IF (pos.EQ.0 .OR. frmt.EQ.0) RETURN
Expand Down Expand Up @@ -1768,20 +1755,12 @@ SUBROUTINE wrtlyr(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
ELSE
STOP 'unknown output format '
ENDIF
!
! --- Def.NE.attributes
! IF (len(trim(vunits)).NE.0) CALL ncattr('units',vunits)
! IF (len(trim(vlngnm)).NE.0) CALL ncattr('long_name',vlngnm)
! IF (len(trim(vstdnm)).NE.0) CALL ncattr('standard_name',vstdnm)
! CALL ncattr('coordinates','plon plat')
! CALL ncattr('cell_measures','area: parea')
!
END SUBROUTINE wrtlyr



SUBROUTINE wrtlvl(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
& vunits)
SUBROUTINE wrtlvl(pos,frmt,sfac,offs,cmpflg,vnm)
!
! --- ------------------------------------------------------------------
! --- Description: writes diagnostic level field to file
Expand All @@ -1799,18 +1778,16 @@ SUBROUTINE wrtlvl(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
! --- int cmpflg (in) : compression flag; only wet points are
! --- written IF flag is set to 1
! --- char vnm (in) : variable name used in nc-file
! --- char vlngnm (in) : variable long name (skipped IF ' ')
! --- char vstdnm (in) : variable standard name (skipped IF ' ')
! --- char vunits (in) : variable units (skipped IF ' ')
! --- ------------------------------------------------------------------
!
IMPLICIT NONE
!
REAL ::sfac,offs
INTEGER :: frmt,cmpflg,pos,n
CHARACTER(LEN=*) :: vnm,vlngnm,vstdnm,vunits
REAL, intent(in) :: sfac,offs
INTEGER, intent(in) :: frmt,cmpflg,pos
CHARACTER(LEN=*),intent(in) :: vnm
!
CHARACTER(LEN=100) :: dims
INTEGER :: n
CHARACTER(LEN=100) :: dims
!
! --- Check whether field should be written
IF (pos.EQ.0 .OR. frmt.EQ.0) RETURN
Expand Down Expand Up @@ -1850,20 +1827,12 @@ SUBROUTINE wrtlvl(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
ELSE
STOP 'unknown output format '
ENDIF
!
! --- Def.NE.attributes
! IF (len(trim(vunits)).NE.0) CALL ncattr('units',vunits)
! IF (len(trim(vlngnm)).NE.0) CALL ncattr('long_name',vlngnm)
! IF (len(trim(vstdnm)).NE.0) CALL ncattr('standard_name',vstdnm)
! CALL ncattr('coordinates','plon plat')
! CALL ncattr('cell_measures','area: parea')
!
END SUBROUTINE wrtlvl



SUBROUTINE wrtsdm(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
& vunits)
SUBROUTINE wrtsdm(pos,frmt,sfac,offs,cmpflg,vnm)
!
! --- ------------------------------------------------------------------
! --- Description: writes diagnostic sediment field to file
Expand All @@ -1881,18 +1850,16 @@ SUBROUTINE wrtsdm(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
! --- int cmpflg (in) : compression flag; only wet points are
! --- written IF flag is set to 1
! --- char vnm (in) : variable name used in nc-file
! --- char vlngnm (in) : variable long name (skipped IF ' ')
! --- char vstdnm (in) : variable standard name (skipped IF ' ')
! --- char vunits (in) : variable units (skipped IF ' ')
! --- ------------------------------------------------------------------
!
IMPLICIT NONE
!
REAL ::sfac,offs
INTEGER :: frmt,cmpflg,pos,n
CHARACTER(LEN=*) :: vnm,vlngnm,vstdnm,vunits
REAL, intent(in) :: sfac,offs
INTEGER, intent(in) :: frmt,cmpflg,pos
CHARACTER(LEN=*),intent(in) :: vnm
!
CHARACTER(LEN=100) :: dims
INTEGER :: n
CHARACTER(LEN=100) :: dims
!
! --- Check whether field should be written
IF (pos.EQ.0 .OR. frmt.EQ.0) RETURN
Expand Down Expand Up @@ -1932,20 +1899,12 @@ SUBROUTINE wrtsdm(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
ELSE
STOP 'unknown output format '
ENDIF
!
! --- Def.NE.attributes
! IF (len(trim(vunits)).NE.0) CALL ncattr('units',vunits)
! IF (len(trim(vlngnm)).NE.0) CALL ncattr('long_name',vlngnm)
! IF (len(trim(vstdnm)).NE.0) CALL ncattr('standard_name',vstdnm)
! CALL ncattr('coordinates','plon plat')
! CALL ncattr('cell_measures','area: parea')
!
END SUBROUTINE wrtsdm



SUBROUTINE wrtbur(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
& vunits)
SUBROUTINE wrtbur(pos,frmt,sfac,offs,cmpflg,vnm)
!
! --- ------------------------------------------------------------------
! --- Description: writes diagnostic sediment burial field to file
Expand All @@ -1963,18 +1922,16 @@ SUBROUTINE wrtbur(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
! --- int cmpflg (in) : compression flag; only wet points are
! --- written IF flag is set to 1
! --- char vnm (in) : variable name used in nc-file
! --- char vlngnm (in) : variable long name (skipped IF ' ')
! --- char vstdnm (in) : variable standard name (skipped IF ' ')
! --- char vunits (in) : variable units (skipped IF ' ')
! --- ------------------------------------------------------------------
!
IMPLICIT NONE
!
REAL ::sfac,offs
INTEGER :: frmt,cmpflg,pos,n
CHARACTER(LEN=*) :: vnm,vlngnm,vstdnm,vunits
REAL, intent(in) :: sfac,offs
INTEGER, intent(in) :: frmt,cmpflg,pos
CHARACTER(LEN=*),intent(in) :: vnm
!
CHARACTER(LEN=100) :: dims
INTEGER :: n
CHARACTER(LEN=100) :: dims
!
! --- Check whether field should be written
IF (pos.EQ.0 .OR. frmt.EQ.0) RETURN
Expand Down Expand Up @@ -2014,13 +1971,6 @@ SUBROUTINE wrtbur(pos,frmt,sfac,offs,cmpflg,vnm,vlngnm,vstdnm, &
ELSE
STOP 'unknown output format '
ENDIF
!
! --- Def.NE.attributes
! IF (len(trim(vunits)).NE.0) CALL ncattr('units',vunits)
! IF (len(trim(vlngnm)).NE.0) CALL ncattr('long_name',vlngnm)
! IF (len(trim(vstdnm)).NE.0) CALL ncattr('standard_name',vstdnm)
! CALL ncattr('coordinates','plon plat')
! CALL ncattr('cell_measures','area: parea')
!
END SUBROUTINE wrtbur

Expand Down
Loading

0 comments on commit 440de2d

Please sign in to comment.