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/sbccpl.F90

    r8321 r8422  
    4040#endif 
    4141#if defined key_lim3 
    42    USE limthd_dh      ! for CALL lim_thd_snwblow 
     42   USE icethd_dh      ! for CALL ice_thd_snwblow 
    4343#endif 
    4444   ! 
     
    16211621#if defined key_lim3 
    16221622      ! zsnw = snow fraction over ice after wind blowing (=picefr if no blowing) 
    1623       zsnw(:,:) = 0._wp  ;  CALL lim_thd_snwblow( ziceld, zsnw ) 
     1623      zsnw(:,:) = 0._wp  ;  CALL ice_thd_snwblow( ziceld, zsnw ) 
    16241624       
    16251625      ! --- evaporation minus precipitation corrected (because of wind blowing on snow) --- ! 
Note: See TracChangeset for help on using the changeset viewer.