Ignore:
Timestamp:
2018-05-18T16:29:56+02:00 (3 years ago)
Author:
clem
Message:

replace names of the agrif subroutines from si3 to ice

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/NST/agrif_ice_interp.F90

    r9598 r9610  
    1414   !!   'key_agrif' :                                 AGRIF library 
    1515   !!---------------------------------------------------------------------- 
    16    !!  agrif_interp_si3    : interpolation of ice at "after" sea-ice time step 
     16   !!  agrif_interp_ice    : interpolation of ice at "after" sea-ice time step 
    1717   !!  agrif_interp_u_ice   : atomic routine to interpolate u_ice  
    1818   !!  agrif_interp_v_ice   : atomic routine to interpolate v_ice  
     
    2929   PRIVATE 
    3030 
    31    PUBLIC   agrif_interp_si3   ! called by agrif_user.F90 
     31   PUBLIC   agrif_interp_ice   ! called by agrif_user.F90 
    3232 
    3333   !!---------------------------------------------------------------------- 
     
    3939CONTAINS 
    4040 
    41    SUBROUTINE agrif_interp_si3( cd_type, kiter, kitermax ) 
     41   SUBROUTINE agrif_interp_ice( cd_type, kiter, kitermax ) 
    4242      !!----------------------------------------------------------------------- 
    4343      !!                 *** ROUTINE agrif_rhg_lim3  *** 
     
    7777      Agrif_UseSpecialValue = .FALSE. 
    7878      ! 
    79    END SUBROUTINE agrif_interp_si3 
     79   END SUBROUTINE agrif_interp_ice 
    8080 
    8181 
Note: See TracChangeset for help on using the changeset viewer.