- Timestamp:
- 2013-12-11T15:38:42+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90
r3651 r4332 8 8 !! 3.3 ! 2010-09 (D. Storkey) add ice boundary conditions 9 9 !! 3.4 ! 2011 (D. Storkey) rewrite in preparation for OBC-BDY merge 10 !! - ! 2012-01 (C. Rousset) add ice boundary conditions for lim3 10 11 !!---------------------------------------------------------------------- 11 12 #if defined key_bdy … … 45 46 REAL, POINTER, DIMENSION(:) :: hicif 46 47 REAL, POINTER, DIMENSION(:) :: hsnif 48 #elif defined key_lim3 49 REAL, POINTER, DIMENSION(:,:) :: a_i !: now ice leads fraction climatology 50 REAL, POINTER, DIMENSION(:,:) :: ht_i !: Now ice thickness climatology 51 REAL, POINTER, DIMENSION(:,:) :: ht_s !: now snow thickness 47 52 #endif 48 53 END TYPE OBC_DATA … … 78 83 REAL, DIMENSION(jp_bdy) :: rn_time_dmp !: Damping time scale in days 79 84 80 #if defined key_lim281 INTEGER, DIMENSION(jp_bdy) :: nn_ice_lim 2! Choice of boundary condition for sea ice variables82 INTEGER, DIMENSION(jp_bdy) :: nn_ice_lim 2_dta!: = 0 use the initial state as bdy dta ;85 #if ( defined key_lim2 || defined key_lim3 ) 86 INTEGER, DIMENSION(jp_bdy) :: nn_ice_lim ! Choice of boundary condition for sea ice variables 87 INTEGER, DIMENSION(jp_bdy) :: nn_ice_lim_dta !: = 0 use the initial state as bdy dta ; 83 88 !: = 1 read it in a NetCDF file 84 89 #endif
Note: See TracChangeset
for help on using the changeset viewer.