Changeset 1471 for trunk/NEMO/LIM_SRC_3/iceini.F90
- Timestamp:
- 2009-06-11T16:27:34+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/iceini.F90
r1465 r1471 91 91 92 92 fr_i(:,:) = at_i(:,:) ! initialisation of sea-ice fraction 93 # if defined key_coupled94 Must be adpated to LIM395 alb_ice(:,:,:) = albege(:,:) ! sea-ice albedo96 # endif97 93 98 94 nstart = numit + nn_fsbc
Note: See TracChangeset
for help on using the changeset viewer.