New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10115 for NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/LIM_SRC_3/ice.F90 – NEMO

Ignore:
Timestamp:
2018-09-12T15:59:13+02:00 (6 years ago)
Author:
cbricaud
Message:

phase 3.6 coarsening branch with nemo_3.6_rev9192

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/LIM_SRC_3/ice.F90

    r7806 r10115  
    419419   FUNCTION ice_alloc() 
    420420      !!----------------------------------------------------------------- 
    421       !!               *** Routine ice_alloc_2 *** 
     421      !!               *** Routine ice_alloc *** 
    422422      !!----------------------------------------------------------------- 
    423423      INTEGER :: ice_alloc 
     
    506506 
    507507      ice_alloc = MAXVAL( ierr(:) ) 
    508       IF( ice_alloc /= 0 )   CALL ctl_warn('ice_alloc_2: failed to allocate arrays.') 
     508      IF( ice_alloc /= 0 )   CALL ctl_warn('ice_alloc: failed to allocate arrays.') 
    509509      ! 
    510510   END FUNCTION ice_alloc 
Note: See TracChangeset for help on using the changeset viewer.