Ignore:
Timestamp:
2013-11-29T16:27:48+01:00 (8 years ago)
Author:
cbricaud
Message:

dev_MERGE_2013: solve tickets 1192, 1193, 1194

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

    r4319 r4325  
    2828   USE limrst_2       ! LIM2 restart 
    2929   USE limsbc_2       ! LIM2 surface boundary condition 
     30   USE limdia_2 
    3031   USE in_out_manager ! I/O manager 
    3132   USE lib_mpp        ! MPP library 
     
    9596      ENDIF 
    9697      ! 
     98      CALL lim_dia_init_2 
     99      ! 
    97100      tn_ice(:,:,1) = sist(:,:)        ! ice temperature  known by the ocean 
    98101      fr_i  (:,:)   = 1.0 - frld(:,:)  ! sea-ice fraction known by the ocean 
Note: See TracChangeset for help on using the changeset viewer.