Changeset 3294 for trunk/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

@@ -23 +23 @@
    USE thd_ice          ! LIM thermodynamical variables
    USE limitd_me        ! LIM ice thickness distribution
-   USE limrhg           ! LIM dynamics
    USE limmsh           ! LIM mesh
    USE limistate        ! LIM initial state
@@ -56 +55 @@
 
       !                                ! Allocate the ice arrays
-      ierr =        ice_alloc       ()       ! ice variables
-      ierr = ierr + dom_ice_alloc   ()       ! domain
-      ierr = ierr + sbc_ice_alloc   ()       ! surface forcing
-      ierr = ierr + thd_ice_alloc   ()       ! thermodynamics
-      ierr = ierr + lim_itd_me_alloc()       ! ice thickness distribution - mechanics
-      ierr = ierr + lim_rhg_alloc   ()       ! dynamics
+      ierr =        ice_alloc        ()      ! ice variables
+      ierr = ierr + dom_ice_alloc    ()      ! domain
+      ierr = ierr + sbc_ice_alloc    ()      ! surface forcing
+      ierr = ierr + thd_ice_alloc    ()      ! thermodynamics
+      ierr = ierr + lim_itd_me_alloc ()      ! ice thickness distribution - mechanics
       !
       IF( lk_mpp    )   CALL mpp_sum( ierr )