Changeset 8804

Timestamp:

2017-11-24T11:24:51+01:00 (5 years ago)

Author:

alexwestmohc

Message:

Removing unnecessary ALLOCATE statement

File:

• branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90 (modified) (1 diff)

branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

@@ -137 +137 @@
          &      qns_oce (jpi,jpj)     , qsr_oce  (jpi,jpj)     , emp_oce (jpi,jpj)  ,   &
          &      emp_ice(jpi,jpj)      , sstfrz (jpi, jpj) , tsfc_ice(jpi,jpj,jpl), &
-         &      ttlyr_ice(jpi,jpj,jpl), kn_ice(jpi,jpj,jpl),     a_p(jpi,jpj,jpl),    &
+         &      ttlyr_ice(jpi,jpj,jpl), a_p(jpi,jpj,jpl),    &
          &      ht_p(jpi,jpj,jpl),      STAT= ierr(2) )
 #endif