Ignore:
Timestamp:
2013-11-04T12:51:55+01:00 (8 years ago)
Author:
cetlod
Message:

merge in dev_LOCEAN_2013, the 1st development branch dev_r3853_CNRS9_Confsetting, from its starting point ( r3853 ) on the trunk: see ticket #1169

File:
1 edited

Legend:

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

    r3625 r4147  
    2929   PRIVATE 
    3030 
    31    PUBLIC               lim_dia_2          ! called by sbc_ice_lim_2 
    32  
    33    INTEGER, PUBLIC ::   ntmoy   = 1 ,   &  !: instantaneous values of ice evolution or averaging ntmoy 
    34       &                 ninfo   = 1        !: frequency of ouputs on file ice_evolu in case of averaging 
     31   PUBLIC               lim_dia_2     ! called by sbc_ice_lim_2 
     32 
     33   INTEGER, PUBLIC ::   ntmoy  ,   &  !: instantaneous values of ice evolution or averaging ntmoy 
     34      &                 ninfo         !: frequency of ouputs on file ice_evolu in case of averaging 
    3535 
    3636   INTEGER, PARAMETER ::   &  ! Parameters for outputs to files "evolu" 
     
    4040 
    4141   INTEGER ::   & 
    42       nfrinf  = 4 ,     &  ! number of variables written in one line  
     42      nfrinf ,          &  ! number of variables written in one line  
    4343      nferme ,          &  ! last time step at which the var. are written on file 
    4444      nvinfo ,          &  ! number of total variables  
     
    4646      naveg                ! number of step for accumulation before averaging 
    4747 
    48    CHARACTER(len= 8) ::   fmtinf  = '1PE13.5 ' ! format of the output values   
     48   CHARACTER(len= 8) ::   fmtinf  ! format of the output values   
    4949   CHARACTER(len=30) ::   fmtw  ,           &  ! formats 
    5050      &                   fmtr  ,           &  ! ??? 
     
    176176       INTEGER  ::   jv   ! dummy loop indice 
    177177       INTEGER  ::   ntot , ndeb, nv, ierr   ! local integer 
     178       INTEGER  ::   ios                     ! Local integer output status for namelist read 
    178179       REAL(wp) ::   zxx0, zxx1              ! local scalars 
    179180 
    180181       NAMELIST/namicedia/fmtinf, nfrinf, ninfo, ntmoy 
    181182       !!------------------------------------------------------------------- 
    182  
    183        REWIND( numnam_ice )                     ! Read Namelist namicedia 
    184        READ  ( numnam_ice  , namicedia ) 
     183                     
     184       REWIND( numnam_ice_ref )              ! Namelist namicedia in reference namelist : Ice diagnostics in ice_evolu 
     185       READ  ( numnam_ice_ref, namicedia, IOSTAT = ios, ERR = 901) 
     186901    IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in reference namelist', lwp ) 
     187 
     188       REWIND( numnam_ice_cfg )              ! Namelist namicedia in configuration namelist : Ice diagnostics in ice_evolu  
     189       READ  ( numnam_ice_cfg, namicedia, IOSTAT = ios, ERR = 902 ) 
     190902    IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in configuration namelist', lwp ) 
     191       WRITE ( numoni, namicedia ) 
    185192        
    186193       IF(lwp) THEN                             ! control print 
Note: See TracChangeset for help on using the changeset viewer.