Ignore:
Timestamp:
2014-03-31T12:03:13+02:00 (7 years ago)
Author:
cbricaud
Message:

solve ticket 1239

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

    r4508 r4607  
    5959         WRITE(numout,*) '~~~~~~~~~~~   ' 
    6060      ENDIF 
     61      !                                 
     62      ! When Diurnal cycle, core bulk and LIM2  are activated,  
     63      ! a daily mean qsr is computed for tracer/biogeochemistery model                                 ! 
     64      IF( ltrcdm2dc )THEN  ; ltrcdm2dc_ice = .TRUE. 
     65      ELSE                 ; ltrcdm2dc_ice = .FALSE. 
     66      ENDIF 
    6167      !                                ! Allocate the ice arrays 
    6268      ierr =        ice_alloc_2    ()       ! ice variables 
     
    7783      CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
    7884      CALL ctl_opn( numoni,         'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
    79  
    80       ! When Diurnal cycle, core bulk and LIM2  are activated,  
    81       ! a daily mean qsr is computed for tracer/biogeochemistery model                                 ! 
    82       IF( ltrcdm2dc ) ltrcdm2dc_ice = .TRUE. 
    8385 
    8486      !                                ! Open the namelist file  
Note: See TracChangeset for help on using the changeset viewer.