Changeset 3357 for branches/2012/dev_3352_UKMO8_CICE

Timestamp:

2012-04-13T16:03:23+02:00 (12 years ago)

Author:

charris

Message:

#953 Removal of unnecessary array.

File:

• branches/2012/dev_3352_UKMO8_CICE/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90 (modified) (1 diff)

branches/2012/dev_3352_UKMO8_CICE/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

@@ -694 +694 @@
       ! Leave result array automatic rather than making explicitly allocated
       REAL(wp), DIMENSION(jpi,jpj)                ::   ptf    ! freezing temperature [Celcius]
-      REAL(wp), DIMENSION(jpi,jpj)                ::   zpress ! pressure [dBar]
       !!----------------------------------------------------------------------
       !