Changeset 9610 for NEMO/trunk/src/NST


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

Location:
NEMO/trunk/src/NST
Files:
3 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 
  • NEMO/trunk/src/NST/agrif_ice_update.F90

    r9598 r9610  
    1717   !!   'key_agrif' :                                 AGRIF library  
    1818   !!---------------------------------------------------------------------- 
    19    !!   agrif_update_si3  : update sea-ice on boundaries or total 
     19   !!   agrif_update_ice  : update sea-ice on boundaries or total 
    2020   !!                        child domain for velocities and ice properties 
    2121   !!   update_tra_ice     : sea-ice properties 
     
    3333   PRIVATE 
    3434 
    35    PUBLIC   agrif_update_si3   ! called by agrif_user.F90 and icestp.F90 
     35   PUBLIC   agrif_update_ice   ! called by agrif_user.F90 and icestp.F90 
    3636 
    3737   !!---------------------------------------------------------------------- 
     
    4242CONTAINS 
    4343 
    44    SUBROUTINE agrif_update_si3( kt ) 
     44   SUBROUTINE agrif_update_ice( kt ) 
    4545      !!---------------------------------------------------------------------- 
    46       !!                     *** ROUTINE agrif_update_si3 *** 
     46      !!                     *** ROUTINE agrif_update_ice *** 
    4747      !! ** Method  :   Call the hydrostaticupdate pressure at the boundary or the entire domain  
    4848      !! 
     
    7070      Agrif_UseSpecialValueInUpdate = .FALSE. 
    7171      ! 
    72    END SUBROUTINE agrif_update_si3 
     72   END SUBROUTINE agrif_update_ice 
    7373 
    7474 
  • NEMO/trunk/src/NST/agrif_user.F90

    r9598 r9610  
    6262# endif 
    6363# if defined key_si3 
    64    CALL Agrif_InitValues_cont_si3 
     64   CALL Agrif_InitValues_cont_ice 
    6565# endif 
    6666   ! 
     
    327327 
    328328#if defined key_si3 
    329    CALL agrif_update_si3(0) 
     329   CALL agrif_update_ice(0) 
    330330#endif 
    331331    
     
    493493 
    494494#if defined key_si3 
    495 SUBROUTINE Agrif_InitValues_cont_si3 
    496    !!---------------------------------------------------------------------- 
    497    !!                 *** ROUTINE Agrif_InitValues_cont_si3 *** 
     495SUBROUTINE Agrif_InitValues_cont_ice 
     496   !!---------------------------------------------------------------------- 
     497   !!                 *** ROUTINE Agrif_InitValues_cont_ice *** 
    498498   !! 
    499499   !! ** Purpose :: Initialisation of variables to be interpolated for LIM3 
     
    512512   ! Declaration of the type of variable which have to be interpolated (parent=>child) 
    513513   !---------------------------------------------------------------------------------- 
    514    CALL agrif_declare_var_si3 
     514   CALL agrif_declare_var_ice 
    515515 
    516516   ! Controls 
     
    529529   !---------------------------------------------------------------------- 
    530530   lim_nbstep = ( Agrif_irhot() * Agrif_Parent(nn_fsbc) / nn_fsbc ) ! clem: to have calledweight=1 in interp (otherwise the western border of the zoom is wrong) 
    531    CALL agrif_interp_si3('U') ! interpolation of ice velocities 
    532    CALL agrif_interp_si3('V') ! interpolation of ice velocities 
    533    CALL agrif_interp_si3('T') ! interpolation of ice tracers  
     531   CALL agrif_interp_ice('U') ! interpolation of ice velocities 
     532   CALL agrif_interp_ice('V') ! interpolation of ice velocities 
     533   CALL agrif_interp_ice('T') ! interpolation of ice tracers  
    534534   lim_nbstep = 0 
    535535    
    536536   ! 
    537 END SUBROUTINE Agrif_InitValues_cont_si3 
    538  
    539 SUBROUTINE agrif_declare_var_si3 
    540    !!---------------------------------------------------------------------- 
    541    !!                 *** ROUTINE agrif_declare_var_si3 *** 
     537END SUBROUTINE Agrif_InitValues_cont_ice 
     538 
     539SUBROUTINE agrif_declare_var_ice 
     540   !!---------------------------------------------------------------------- 
     541   !!                 *** ROUTINE agrif_declare_var_ice *** 
    542542   !! 
    543543   !! ** Purpose :: Declaration of variables to be interpolated for LIM3 
     
    590590#endif 
    591591 
    592 END SUBROUTINE agrif_declare_var_si3 
     592END SUBROUTINE agrif_declare_var_ice 
    593593#endif 
    594594 
Note: See TracChangeset for help on using the changeset viewer.