Changeset 2855


Ignore:
Timestamp:
2011-09-22T12:35:29+02:00 (9 years ago)
Author:
acc
Message:

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

Location:
trunk/NEMOGCM/NEMO/LIM_SRC_2
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

    r2730 r2855  
    2323   USE par_ice_2        ! LIM2 parameters 
    2424   USE thd_ice_2        ! LIM2 thermodynamical variables 
    25    USE limrhg           ! LIM2 rheology 
     25   USE limrhg           ! LIM2 EVP rheology 
     26   USE limrhg_2         ! LIM2  VP rheology (requires "key_lim2_vp") 
    2627   USE ice_2            ! LIM2 ice variable 
    2728   USE limmsh_2         ! LIM2 mesh 
     
    6566#if ! defined key_lim2_vp 
    6667      ierr = ierr + lim_rhg_alloc  () 
     68#else 
     69      ierr = ierr + lim_rhg_alloc_2  () 
    6770#endif 
    6871      IF( lk_mpp    )   CALL mpp_sum( ierr ) 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90

    r2528 r2855  
    124124      syyst (:,:)  = 0.e0 
    125125      sxyst (:,:)  = 0.e0 
     126#if ! defined key_lim2_vp 
     127      stress1_i (:,:) = 0._wp                          ! EVP rheology 
     128      stress2_i (:,:) = 0._wp 
     129      stress12_i(:,:) = 0._wp 
     130#endif 
    126131 
    127132      !-- lateral boundary conditions 
Note: See TracChangeset for help on using the changeset viewer.