Changeset 4325 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/limdia_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/limdia_2.F90 (modified) (2 diffs)

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

@@ -29 +29 @@
    PRIVATE
 
-   PUBLIC               lim_dia_2     ! called by sbc_ice_lim_2
+   PUBLIC               lim_dia_2          ! called by sbc_ice_lim_2
+   PUBLIC               lim_dia_init_2     ! called by sbc_ice_lim_2
 
    INTEGER, PUBLIC ::   ntmoy  ,   &  !: instantaneous values of ice evolution or averaging ntmoy
@@ -82 +83 @@
       REAL(wp), DIMENSION(jpinfmx) ::   vinfor  ! temporary working space 
       !!-------------------------------------------------------------------
-
-      IF( kt == nit000 )   CALL lim_dia_init_2  ! initialisation of ice_evolu file      
 
       ! computation of key variables at each time step