Changeset 4325 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

Timestamp:

2013-11-29T16:27:48+01:00 (10 years ago)

Author:

cbricaud

Message:

dev_MERGE_2013: solve tickets 1192, 1193, 1194

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90 (modified) (2 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

@@ -28 +28 @@
    USE limrst_2       ! LIM2 restart
    USE limsbc_2       ! LIM2 surface boundary condition
+   USE limdia_2
    USE in_out_manager ! I/O manager
    USE lib_mpp        ! MPP library
@@ -95 +96 @@
       ENDIF
       !
+      CALL lim_dia_init_2
+      !
       tn_ice(:,:,1) = sist(:,:)        ! ice temperature  known by the ocean
       fr_i  (:,:)   = 1.0 - frld(:,:)  ! sea-ice fraction known by the ocean