Changeset 719 for trunk/NEMO/LIM_SRC/iceini.F90

Timestamp:

2007-10-16T16:59:56+02:00 (17 years ago)

Author:

ctlod

Message:

get back to the nemo_v2_3 version for trunk

File:

• trunk/NEMO/LIM_SRC/iceini.F90 (modified) (4 diffs, 1 prop)

trunk/NEMO/LIM_SRC/iceini.F90

@@ -17 +17 @@
    USE dom_oce
    USE dom_ice
+   USE in_out_manager
    USE ice_oce         ! ice variables
-   USE sbc_oce         ! surface boundary condition: ocean
-   USE sbc_ice         ! surface boundary condition: ice
+   USE flx_oce
    USE phycst          ! Define parameters for the routines
    USE ocfzpt
@@ -27 +27 @@
    USE limrst   
    USE ini1d           ! initialization of the 1D configuration
-   USE in_out_manager
       
    IMPLICIT NONE
@@ -41 +40 @@
    !!----------------------------------------------------------------------
    !!   LIM 2.0,  UCL-LOCEAN-IPSL (2005) 
-   !! $Id$
+   !! $Header$ 
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------
@@ -63 +62 @@
                  
       ! Louvain la Neuve Ice model
-      dtsd2   = nn_fsbc * rdttra(1) * 0.5
-      rdt_ice = nn_fsbc * rdttra(1)
+      IF( nacc == 1 ) THEN
+          dtsd2   = nfice * rdtmin * 0.5
+          rdt_ice = nfice * rdtmin
+      ELSE
+          dtsd2   = nfice * rdt * 0.5
+          rdt_ice = nfice * rdt
+      ENDIF
 
       CALL lim_msh                    ! ice mesh initialization