Changeset 2855

Timestamp:

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

Author:

acc

Message:

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

Location:

trunk/NEMOGCM/NEMO/LIM_SRC_2

Files:

• iceini_2.F90 (modified) (2 diffs)
• limistate_2.F90 (modified) (1 diff)

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 )

trunk/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90

@@ -124 +124 @@
       syyst (:,:)  = 0.e0
       sxyst (:,:)  = 0.e0
+#if ! defined key_lim2_vp
+      stress1_i (:,:) = 0._wp                          ! EVP rheology
+      stress2_i (:,:) = 0._wp
+      stress12_i(:,:) = 0._wp
+#endif
 
       !-- lateral boundary conditions