Changeset 2528 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90
r1482 r2528 9 9 #if defined key_lim3 || defined key_lim2 10 10 !!---------------------------------------------------------------------- 11 !! 'key_lim2' or 'key_lim3' : LIM 2.0 or 3.0sea-ice model11 !! 'key_lim2' or 'key_lim3' : LIM-2 or LIM-3 sea-ice model 12 12 !!---------------------------------------------------------------------- 13 13 USE par_oce ! ocean parameters … … 23 23 24 24 # if defined key_lim2 25 LOGICAL , PUBLIC, PARAMETER :: lk_lim2 = .TRUE. !: LIM-2 ice model 26 LOGICAL , PUBLIC, PARAMETER :: lk_lim3 = .FALSE. !: no LIM-3 27 CHARACTER(len=1), PUBLIC :: cigr_type = 'I' !: 'I'-grid ice-velocity (B-grid lower left corner) 25 LOGICAL , PUBLIC, PARAMETER :: lk_lim2 = .TRUE. !: LIM-2 ice model 26 LOGICAL , PUBLIC, PARAMETER :: lk_lim3 = .FALSE. !: no LIM-3 27 # if defined key_lim2_vp 28 CHARACTER(len=1), PUBLIC, PARAMETER :: cp_ice_msh = 'I' !: VP : 'I'-grid ice-velocity (B-grid lower left corner) 29 # else 30 CHARACTER(len=1), PUBLIC, PARAMETER :: cp_ice_msh = 'C' !: EVP: 'C'-grid ice-velocity 31 # endif 28 32 # endif 29 33 # if defined key_lim3 30 LOGICAL , PUBLIC, PARAMETER :: lk_lim2 = .FALSE.!: no LIM-231 LOGICAL , PUBLIC, PARAMETER :: lk_lim3 = .TRUE.!: LIM-3 ice model32 CHARACTER(len=1), PUBLIC :: cigr_type = 'C'!: 'C'-grid ice-velocity34 LOGICAL , PUBLIC, PARAMETER :: lk_lim2 = .FALSE. !: no LIM-2 35 LOGICAL , PUBLIC, PARAMETER :: lk_lim3 = .TRUE. !: LIM-3 ice model 36 CHARACTER(len=1), PUBLIC, PARAMETER :: cp_ice_msh = 'C' !: 'C'-grid ice-velocity 33 37 # endif 34 38 … … 41 45 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpl) :: alb_ice !: albedo of ice 42 46 43 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: utau_ice !: u-stress over ice (I-p oint for LIM2 or U,V-point for LIM3) [N/m2]44 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: vtau_ice !: v-stress over ice (I-p oint for LIM2 or U,V-point for LIM3) [N/m2]45 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: fr1_i0 !: 1st fraction of sol. rad. which penetrateinside the ice cover46 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: fr2_i0 !: 2nd fraction of sol. rad. which penetrateinside the ice cover47 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: utau_ice !: u-stress over ice (I-pt for VP or U,V-pts for EVP) [N/m2] 48 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: vtau_ice !: v-stress over ice (I-pt for VP or U,V-pts for EVP) [N/m2] 49 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: fr1_i0 !: 1st fraction of Qsr which penetrates inside the ice cover 50 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: fr2_i0 !: 2nd fraction of Qsr which penetrates inside the ice cover 47 51 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: emp_ice !: solid freshwater budget over ice: sublivation - snow 48 52 … … 55 59 !! Default option NO LIM 2.0 or 3.0 sea-ice model 56 60 !!---------------------------------------------------------------------- 57 LOGICAL , PUBLIC, PARAMETER :: lk_lim2 58 LOGICAL , PUBLIC, PARAMETER :: lk_lim3 59 CHARACTER(len=1), PUBLIC :: cigr_type= '-' !: no grid ice-velocity61 LOGICAL , PUBLIC, PARAMETER :: lk_lim2 = .FALSE. !: no LIM-2 ice model 62 LOGICAL , PUBLIC, PARAMETER :: lk_lim3 = .FALSE. !: no LIM-3 ice model 63 CHARACTER(len=1), PUBLIC, PARAMETER :: cp_ice_msh = '-' !: no grid ice-velocity 60 64 #endif 61 65 62 66 !!---------------------------------------------------------------------- 63 !! NEMO/OPA 3. 2 , LOCEAN-IPSL (2009)67 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 64 68 !! $Id$ 65 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 66 !!---------------------------------------------------------------------- 67 69 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 68 70 !!====================================================================== 69 71 END MODULE sbc_ice
Note: See TracChangeset
for help on using the changeset viewer.