Ignore:
Timestamp:
2018-07-04T10:48:01+02:00 (2 years ago)
Author:
clem
Message:

removing the very last bits (I hope) of LIM references in the code

File:
1 edited

Legend:

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

    r9767 r9872  
    13521352      IF( srcv(jpr_ocx1)%laction ) THEN                      ! received by sas in case of opa <-> sas coupling 
    13531353         ssu_m(:,:) = frcv(jpr_ocx1)%z3(:,:,1) 
    1354          ub (:,:,1) = ssu_m(:,:)                             ! will be used in icestp in the call of lim_sbc_tau 
     1354         ub (:,:,1) = ssu_m(:,:)                             ! will be used in icestp in the call of ice_forcing_tau 
    13551355         un (:,:,1) = ssu_m(:,:)                             ! will be used in sbc_cpl_snd if atmosphere coupling 
    13561356         CALL iom_put( 'ssu_m', ssu_m ) 
     
    13581358      IF( srcv(jpr_ocy1)%laction ) THEN 
    13591359         ssv_m(:,:) = frcv(jpr_ocy1)%z3(:,:,1) 
    1360          vb (:,:,1) = ssv_m(:,:)                             ! will be used in icestp in the call of lim_sbc_tau 
     1360         vb (:,:,1) = ssv_m(:,:)                             ! will be used in icestp in the call of ice_forcing_tau 
    13611361         vn (:,:,1) = ssv_m(:,:)                             ! will be used in sbc_cpl_snd if atmosphere coupling 
    13621362         CALL iom_put( 'ssv_m', ssv_m ) 
Note: See TracChangeset for help on using the changeset viewer.