New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 991 for branches/dev_003_CPL/NEMO/LIM_SRC_3/iceini.F90 – NEMO

Ignore:
Timestamp:
2008-05-23T17:55:55+02:00 (16 years ago)
Author:
smasson
Message:

dev_003_CPL: preliminary draft (not working), see ticket #155

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_003_CPL/NEMO/LIM_SRC_3/iceini.F90

    r990 r991  
    5757      !!   3.0  !  08-03  (M. Vancop) ITD, salinity, EVP-C 
    5858      !!---------------------------------------------------------------------- 
    59  
     59      INTEGER ::   jl 
    6060      ! Open the namelist file  
    6161      CALL ctlopn(numnam_ice,'namelist_ice','OLD', 'FORMATTED', 'SEQUENTIAL', 1,numout,.FALSE.,1) 
     
    9292         CALL lim_var_glo2eqv         ! convert global var in equivalent variables 
    9393      ENDIF 
    94  
    95       freeze(:,:) = at_i(:,:)   ! initialisation of sea/ice cover     
    96 # if defined key_coupled 
    97       Must be adpated to LIM3  
    98       alb_ice(:,:,:) = albege(:,:)      ! sea-ice albedo 
    99 # endif 
    10094 
    10195      nstart = numit  + nn_fsbc       
     
    255249      END DO 
    256250 
    257       tn_ice(:,:,:) = t_su(:,:,:) 
    258  
    259251   END SUBROUTINE lim_itd_ini 
    260252 
Note: See TracChangeset for help on using the changeset viewer.