Changeset 5252


Ignore:
Timestamp:
2015-05-04T11:13:12+02:00 (5 years ago)
Author:
cetlod
Message:

NEMOGCM_dev_r5204_CNRS_PISCES_dcy : suppress unused variables

Location:
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r5236 r5252  
    106106      !------------------------------------------------------------------------! 
    107107      ftr_ice(:,:,:) = 0._wp  ! part of solar radiation transmitted through the ice 
    108       IF( l_trcdm2dc ) ftr_ice_mean(:,:,:) = 0._wp   ! part of daily mean solar radiation absorbing inside the ice 
    109  
    110108 
    111109      !-------------------- 
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

    r5210 r5252  
    264264      fr_i(:,:)        = sf_dyn(jf_ice)%fnow(:,:,1) * tmask(:,:,1)    ! Sea-ice fraction 
    265265      qsr (:,:)        = sf_dyn(jf_qsr)%fnow(:,:,1) * tmask(:,:,1)    ! solar radiation 
    266       IF( ln_dm2dc )   qsr_mean(:,:) = qsr(:,:)                         ! daily mean solar radiation 
    267266      IF( ln_dynrnf ) & 
    268267      rnf (:,:)        = sf_dyn(jf_rnf)%fnow(:,:,1) * tmask(:,:,1)    ! river runoffs  
Note: See TracChangeset for help on using the changeset viewer.