Changeset 2855 for trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

Timestamp:

2011-09-22T12:35:29+02:00 (13 years ago)

Author:

acc

Message:

Minor corrections to LIM2 initialisation and allocation, see ticket: #862

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

@@ -23 +23 @@
    USE par_ice_2        ! LIM2 parameters
    USE thd_ice_2        ! LIM2 thermodynamical variables
-   USE limrhg           ! LIM2 rheology
+   USE limrhg           ! LIM2 EVP rheology
+   USE limrhg_2         ! LIM2  VP rheology (requires "key_lim2_vp")
    USE ice_2            ! LIM2 ice variable
    USE limmsh_2         ! LIM2 mesh
@@ -65 +66 @@
 #if ! defined key_lim2_vp
       ierr = ierr + lim_rhg_alloc  ()
+#else
+      ierr = ierr + lim_rhg_alloc_2  ()
 #endif
       IF( lk_mpp    )   CALL mpp_sum( ierr )