remove unused variable zpi form cdfbn2.f90

meom-group · Jul 11, 2017 · 02e10a3 · 02e10a3
1 parent 45703cd
commit 02e10a3
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/src/cdfbn2.f90 b/src/cdfbn2.f90
@@ -34,7 +34,6 @@ PROGRAM cdfbn2
   INTEGER(KIND=4)                              :: ncout                    ! ncid of output file
   INTEGER(KIND=4), DIMENSION(2)                :: ipk, id_varout           ! level and id of output variables
 
-  REAL(KIND=4)                                 :: zpi                      ! 3.14...
   REAL(KIND=4)                                 :: zsps                     ! Missing value for salinity
   REAL(KIND=4), DIMENSION (:,:,:), ALLOCATABLE :: ztemp, zsal, zwk         ! Array to read 2 layer of data
   REAL(KIND=4), DIMENSION (:,:),   ALLOCATABLE :: zn2                      ! Brunt Vaissala Frequency (N2)
@@ -138,8 +137,6 @@ PROGRAM cdfbn2
   ierr  = createvar   (ncout ,   stypvar,  1,      ipk,    id_varout, cdglobal=TRIM(cglobal))
   ierr  = putheadervar(ncout,    cf_tfil,  npiglo, npjglo, npk, pdep=gdep)
 
-  zpi=ACOS(-1.)
-
   tim  = getvar1d(cf_tfil, cn_vtimec, npt   )
   ierr = putvar1d(ncout,  tim,       npt,'T')