Ignore:
Timestamp:
2013-11-29T16:27:48+01:00 (7 years ago)
Author:
cbricaud
Message:

dev_MERGE_2013: solve tickets 1192, 1193, 1194

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/limdia_2.F90

    r4147 r4325  
    2929   PRIVATE 
    3030 
    31    PUBLIC               lim_dia_2     ! called by sbc_ice_lim_2 
     31   PUBLIC               lim_dia_2          ! called by sbc_ice_lim_2 
     32   PUBLIC               lim_dia_init_2     ! called by sbc_ice_lim_2 
    3233 
    3334   INTEGER, PUBLIC ::   ntmoy  ,   &  !: instantaneous values of ice evolution or averaging ntmoy 
     
    8283      REAL(wp), DIMENSION(jpinfmx) ::   vinfor  ! temporary working space  
    8384      !!------------------------------------------------------------------- 
    84  
    85       IF( kt == nit000 )   CALL lim_dia_init_2  ! initialisation of ice_evolu file       
    8685 
    8786      ! computation of key variables at each time step    
Note: See TracChangeset for help on using the changeset viewer.