Changeset 2993 for branches/2011/dev_INGV_2011
- Timestamp:
- 2011-10-25T16:21:08+02:00 (13 years ago)
- Location:
- branches/2011/dev_INGV_2011/NEMOGCM/NEMO/LIM_SRC_2
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_INGV_2011/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90
r2730 r2993 23 23 USE par_ice_2 ! LIM2 parameters 24 24 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") 26 27 USE ice_2 ! LIM2 ice variable 27 28 USE limmsh_2 ! LIM2 mesh … … 65 66 #if ! defined key_lim2_vp 66 67 ierr = ierr + lim_rhg_alloc () 68 #else 69 ierr = ierr + lim_rhg_alloc_2 () 67 70 #endif 68 71 IF( lk_mpp ) CALL mpp_sum( ierr ) -
branches/2011/dev_INGV_2011/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90
r2528 r2993 124 124 syyst (:,:) = 0.e0 125 125 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 126 131 127 132 !-- lateral boundary conditions
Note: See TracChangeset
for help on using the changeset viewer.