Changeset 2077 for branches/devmercator2010/NEMO/LIM_SRC_2/iceini_2.F90

Timestamp:

2010-09-09T10:43:51+02:00 (14 years ago)

Author:

cbricaud

Message:

commit change from DEV_r1784_3DF

File:

• branches/devmercator2010/NEMO/LIM_SRC_2/iceini_2.F90 (modified) (3 diffs)

branches/devmercator2010/NEMO/LIM_SRC_2/iceini_2.F90

@@ -6 +6 @@
    !! History :   1.0  !  02-08  (G. Madec)  F90: Free form and modules
    !!             2.0  !  03-08  (C. Ethe)  add ice_run
-   !!             3.3  !  09-05  (G.Garric) addition of the lim2_evp case
    !!----------------------------------------------------------------------
 #if defined key_lim2
@@ -31 +30 @@
 
    PUBLIC   ice_init_2               ! called by sbcice_lim_2.F90
-
-   INTEGER , PUBLIC  ::     numit                  !: iteration number
-
 
    !!----------------------------------------------------------------------
@@ -66 +62 @@
       ENDIF
       
-      tn_ice(:,:,1) = sist(:,:)       ! initialisation of ice temperature   
+      tn_ice(:,:,1) = sist(:,:)         ! initialisation of ice temperature   
       fr_i  (:,:) = 1.0 - frld(:,:)   ! initialisation of sea-ice fraction    
-      !
-      numit = nit000 - 1              !initialisation ice time-step
-
       !
    END SUBROUTINE ice_init_2