Changeset 888 for trunk/NEMO/LIM_SRC_3/iceini.F90

Timestamp:

2008-04-11T19:05:03+02:00 (16 years ago)

Author:

ctlod

Message:

merge dev_001_SBC branche with the trunk to include the New Surface Module package, see ticket: #113

File:

• trunk/NEMO/LIM_SRC_3/iceini.F90 (modified) (5 diffs)

trunk/NEMO/LIM_SRC_3/iceini.F90

@@ -13 +13 @@
    USE in_out_manager
    USE ice_oce         ! ice variables
-   USE flx_oce
+   USE sbc_oce         ! Surface boundary condition: ocean fields
+   USE sbc_ice         ! Surface boundary condition: ice fields
    USE phycst          ! Define parameters for the routines
    USE ocfzpt
@@ -50 +51 @@
    !!----------------------------------------------------------------------
    !!   LIM 3.0,  UCL-ASTR-LOCEAN-IPSL (2008) 
-   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/LIM_SRC/iceini.F90,v 1.4 2005/03/27 18:34:41 opalod Exp $ 
+   !! $ Id: $
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------
@@ -74 +75 @@
       ! Louvain la Neuve Ice model
       IF( nacc == 1 ) THEN
-          dtsd2   = nfice * rdtmin * 0.5
-          rdt_ice = nfice * rdtmin
+          dtsd2   = nn_fsbc * rdtmin * 0.5
+          rdt_ice = nn_fsbc * rdtmin
       ELSE
-          dtsd2   = nfice * rdt * 0.5
-          rdt_ice = nfice * rdt
+          dtsd2   = nn_fsbc * rdt * 0.5
+          rdt_ice = nn_fsbc * rdt
       ENDIF
 
@@ -104 +105 @@
       freeze(:,:) = at_i(:,:)   ! initialisation of sea/ice cover    
 # if defined key_coupled
-      alb_ice(:,:) = albege(:,:)      ! sea-ice albedo
+      Must be adpated to LIM3 
+      alb_ice(:,:,:) = albege(:,:)      ! sea-ice albedo
 # endif
       
-      nstart = numit  + nfice      
+      nstart = numit  + nn_fsbc      
       nitrun = nitend - nit000 + 1 
       nlast  = numit  + nitrun 
@@ -188 +190 @@
 
        WRITE(numout,*) 'lim_itd_ini : Initialization of ice thickness distribution '
-       WRITE(numout,*) '~~~~~~~~~~~~~~~'
+       WRITE(numout,*) '~~~~~~~~~~~~'
 
 !!-- End of declarations