Changeset 13477


Ignore:
Timestamp:
2020-09-16T17:15:29+02:00 (6 months ago)
Author:
smasson
Message:

trunk: fix the use of ln_drgice_imp

Location:
NEMO/trunk/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbcmod.F90

    r13472 r13477  
    9999         &             nn_ice   , ln_ice_embd,                                       & 
    100100         &             ln_traqsr, ln_dm2dc ,                                         & 
    101          &             ln_rnf   , nn_fwb     , ln_ssr   , ln_apr_dyn,              & 
    102          &             ln_wave  , ln_cdgw  , ln_sdw   , ln_tauwoc  , ln_stcor  ,     & 
     101         &             ln_rnf   , nn_fwb   , ln_ssr   , ln_apr_dyn,                  & 
     102         &             ln_wave  , ln_cdgw  , ln_sdw   , ln_tauwoc , ln_stcor  ,      & 
    103103         &             ln_tauw  , nn_lsm, nn_sdrift 
    104104      !!---------------------------------------------------------------------- 
     
    119119#if defined key_mpp_mpi 
    120120      ncom_fsbc = nn_fsbc    ! make nn_fsbc available for lib_mpp 
     121#endif 
     122#if ! defined key_si3 
     123      IF( nn_ice == 2 )    nn_ice = 0  ! without key key_si3 you cannot use si3... 
    121124#endif 
    122125      ! 
     
    243246      ENDIF 
    244247      ! 
    245  
    246248      IF( nn_ice == 0 ) THEN        !* No sea-ice in the domain : ice fraction is always zero 
    247249         IF( nn_components /= jp_iam_opa )   fr_i(:,:) = 0._wp    ! except for OPA in SAS-OPA coupled case 
  • NEMO/trunk/src/OCE/ZDF/zdfdrg.F90

    r13472 r13477  
    238238      IF(lwm) WRITE ( numond, namdrg ) 
    239239      ! 
     240      IF ( ln_drgice_imp .AND.   nn_ice /= 2  )   ln_drgice_imp = .FALSE. 
     241      ! 
    240242      IF(lwp) THEN 
    241243         WRITE(numout,*) 
     
    262264         &                CALL ctl_stop( 'zdf_drg_init: ln_drgice_imp=T requires ln_drgimp=T' ) 
    263265      ! 
    264       IF ( ln_drgice_imp.AND.( nn_ice /=2 ) ) & 
    265          &  CALL ctl_stop( 'zdf_drg_init: ln_drgice_imp=T requires si3' ) 
    266       ! 
    267266      !                     !==  BOTTOM drag setting  ==!   (applied at seafloor) 
    268267      ! 
     
    270269      CALL drg_init( 'BOTTOM'   , mbkt       ,                                         &   ! <== in 
    271270         &           r_Cdmin_bot, r_Cdmax_bot, r_z0_bot, r_ke0_bot, rCd0_bot, rCdU_bot )   ! ==> out 
    272  
    273271      ! 
    274272      !                     !==  TOP drag setting  ==!   (applied at the top of ocean cavities) 
Note: See TracChangeset for help on using the changeset viewer.