Changeset 9834

Timestamp:

2018-06-22T12:47:13+02:00 (5 years ago)

Author:

jonnywilliams

Message:

removing double definition of loc_vol

File:

• branches/UKMO/dev_r5518_NIWA-ifort-syntax-fix/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_NIWA-ifort-syntax-fix/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -726 +726 @@
       !!----------------------------------------------------------------------
       INTEGER  :: ji, jj, jk, jn
-      REAL(wp) :: zsum3d, zsum2d, zinvt, zdelta, zratio, loc_vol, loc_are
+      REAL(wp) :: zsum3d, zsum2d, zinvt, zdelta, zratio, loc_are
       REAL(wp) :: zq1, zq2, loc_vol, loc_area
       REAL(wp), DIMENSION(jpi,jpj,jpk) :: z3d, zvol