Changeset 2993

Timestamp:

2011-10-25T16:21:08+02:00 (12 years ago)

Author:

poddo

Message:

ticket #879. Step 3: Add in changes from the trunk between revisions 2802 and 2855.

Location:

branches/2011/dev_INGV_2011/NEMOGCM/NEMO/LIM_SRC_2

Files:

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

branches/2011/dev_INGV_2011/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 )

branches/2011/dev_INGV_2011/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