Changeset 1037 for trunk/NEMO/LIM_SRC_3/iceini.F90
- Timestamp:
- 2008-05-30T18:21:28+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/iceini.F90
r921 r1037 16 16 USE sbc_ice ! Surface boundary condition: ice fields 17 17 USE phycst ! Define parameters for the routines 18 USE ocfzpt19 18 USE ice 20 19 USE limmsh … … 93 92 ENDIF 94 93 95 fr eeze(:,:) = at_i(:,:) ! initialisation of sea/ice cover94 fr_i(:,:) = at_i(:,:) ! initialisation of sea-ice fraction 96 95 # if defined key_coupled 97 96 Must be adpated to LIM3
Note: See TracChangeset
for help on using the changeset viewer.