Changeset 8804


Ignore:
Timestamp:
2017-11-24T11:24:51+01:00 (3 years ago)
Author:
alexwestmohc
Message:

Removing unnecessary ALLOCATE statement

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r8796 r8804  
    137137         &      qns_oce (jpi,jpj)     , qsr_oce  (jpi,jpj)     , emp_oce (jpi,jpj)  ,   & 
    138138         &      emp_ice(jpi,jpj)      , sstfrz (jpi, jpj) , tsfc_ice(jpi,jpj,jpl), & 
    139          &      ttlyr_ice(jpi,jpj,jpl), kn_ice(jpi,jpj,jpl),     a_p(jpi,jpj,jpl),    & 
     139         &      ttlyr_ice(jpi,jpj,jpl), a_p(jpi,jpj,jpl),    & 
    140140         &      ht_p(jpi,jpj,jpl),      STAT= ierr(2) ) 
    141141#endif 
Note: See TracChangeset for help on using the changeset viewer.