Ignore:
Timestamp:
2017-08-08T15:58:05+02:00 (3 years ago)
Author:
clem
Message:

continue naming

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk.F90

    r8321 r8422  
    4141#if defined key_lim3 
    4242   USE ice     , ONLY :   u_ice, v_ice, jpl, a_i_b, at_i_b 
    43    USE limthd_dh      ! for CALL lim_thd_snwblow 
     43   USE icethd_dh      ! for CALL ice_thd_snwblow 
    4444#endif 
    4545   USE sbcblk_algo_ncar     ! => turb_ncar     : NCAR - CORE (Large & Yeager, 2009)  
     
    789789      ! --- evaporation minus precipitation --- ! 
    790790      zsnw(:,:) = 0._wp 
    791       CALL lim_thd_snwblow( (1.-at_i_b(:,:)), zsnw )  ! snow distribution over ice after wind blowing 
     791      CALL ice_thd_snwblow( (1.-at_i_b(:,:)), zsnw )  ! snow distribution over ice after wind blowing 
    792792      emp_oce(:,:) = ( 1._wp - at_i_b(:,:) ) * zevap(:,:) - ( tprecip(:,:) - sprecip(:,:) ) - sprecip(:,:) * (1._wp - zsnw ) 
    793793      emp_ice(:,:) = SUM( a_i_b(:,:,:) * evap_ice(:,:,:), dim=3 ) - sprecip(:,:) * zsnw 
Note: See TracChangeset for help on using the changeset viewer.