Changeset 991 for branches/dev_003_CPL/NEMO/LIM_SRC_3/iceini.F90
- Timestamp:
- 2008-05-23T17:55:55+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_003_CPL/NEMO/LIM_SRC_3/iceini.F90
r990 r991 57 57 !! 3.0 ! 08-03 (M. Vancop) ITD, salinity, EVP-C 58 58 !!---------------------------------------------------------------------- 59 59 INTEGER :: jl 60 60 ! Open the namelist file 61 61 CALL ctlopn(numnam_ice,'namelist_ice','OLD', 'FORMATTED', 'SEQUENTIAL', 1,numout,.FALSE.,1) … … 92 92 CALL lim_var_glo2eqv ! convert global var in equivalent variables 93 93 ENDIF 94 95 freeze(:,:) = at_i(:,:) ! initialisation of sea/ice cover96 # if defined key_coupled97 Must be adpated to LIM398 alb_ice(:,:,:) = albege(:,:) ! sea-ice albedo99 # endif100 94 101 95 nstart = numit + nn_fsbc … … 255 249 END DO 256 250 257 tn_ice(:,:,:) = t_su(:,:,:)258 259 251 END SUBROUTINE lim_itd_ini 260 252
Note: See TracChangeset
for help on using the changeset viewer.