New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9570 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_user.F90 – NEMO

Ignore:
Timestamp:
2018-05-11T12:53:25+02:00 (6 years ago)
Author:
nicolasmartin
Message:

Global renaming for core routines (./NEMO)

  • Folders
    • LIM_SRC_3 -> ICE_SRC
    • OPA_SRC -> OCE_SRC
  • CPP key: key_lim3 -> key_si3
  • Modules, (sub)routines and variables names
    • MPI: mpi_comm_opa -> mpi_comm_oce, MPI_COMM_OPA -> MPI_COMM_OCE, mpi_init_opa -> mpi_init_oce
    • AGRIF: agrif_opa_* -> agrif_oce_*, agrif_lim3_* -> agrif_si3_* and few more
    • TOP-PISCES: p.zlim -> p.zice, namp.zlim -> namp.zice
  • Comments
    • NEMO/OPA -> NEMO/OCE
    • ESIM|LIM3 -> SI3
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r9482 r9570  
    6161   CALL Agrif_InitValues_cont_top 
    6262# endif 
    63 # if defined key_lim3 
    64    CALL Agrif_InitValues_cont_lim3 
     63# if defined key_si3 
     64   CALL Agrif_InitValues_cont_si3 
    6565# endif 
    6666   ! 
    … …  
    8383   USE nemogcm 
    8484   USE in_out_manager 
    85    USE agrif_opa_update 
    86    USE agrif_opa_interp 
    87    USE agrif_opa_sponge 
     85   USE agrif_oce_update 
     86   USE agrif_oce_interp 
     87   USE agrif_oce_sponge 
    8888   ! 
    8989   IMPLICIT NONE 
    … …  
    149149   !! ** Purpose ::   Declaration of variables to be interpolated 
    150150   !!---------------------------------------------------------------------- 
    151    USE agrif_opa_update 
    152    USE agrif_opa_interp 
    153    USE agrif_opa_sponge 
     151   USE agrif_oce_update 
     152   USE agrif_oce_interp 
     153   USE agrif_oce_sponge 
    154154   USE Agrif_Util 
    155155   USE oce  
    … …  
    303303   !!---------------------------------------------------------------------- 
    304304   USE dom_oce 
    305    USE agrif_opa_update 
     305   USE agrif_oce_update 
    306306#if defined key_top 
    307307   USE agrif_top_update 
    308308#endif 
    309 #if defined key_lim3 
    310    USE agrif_lim3_update 
     309#if defined key_si3 
     310   USE agrif_si3_update 
    311311#endif 
    312312   ! 
    … …  
    326326!!   CALL Agrif_Update_tke(0) 
    327327 
    328 #if defined key_lim3 
    329    CALL agrif_update_lim3(0) 
     328#if defined key_si3 
     329   CALL agrif_update_si3(0) 
    330330#endif 
    331331    
    … …  
    492492END SUBROUTINE agrif_declare_var 
    493493 
    494 #if defined key_lim3 
    495 SUBROUTINE Agrif_InitValues_cont_lim3 
    496    !!---------------------------------------------------------------------- 
    497    !!                 *** ROUTINE Agrif_InitValues_cont_lim3 *** 
     494#if defined key_si3 
     495SUBROUTINE Agrif_InitValues_cont_si3 
     496   !!---------------------------------------------------------------------- 
     497   !!                 *** ROUTINE Agrif_InitValues_cont_si3 *** 
    498498   !! 
    499499   !! ** Purpose :: Initialisation of variables to be interpolated for LIM3 
    … …  
    504504   USE agrif_ice 
    505505   USE in_out_manager 
    506    USE agrif_lim3_interp 
     506   USE agrif_si3_interp 
    507507   USE lib_mpp 
    508508   ! 
    … …  
    512512   ! Declaration of the type of variable which have to be interpolated (parent=>child) 
    513513   !---------------------------------------------------------------------------------- 
    514    CALL agrif_declare_var_lim3 
     514   CALL agrif_declare_var_si3 
    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_lim3('U') ! interpolation of ice velocities 
    532    CALL agrif_interp_lim3('V') ! interpolation of ice velocities 
    533    CALL agrif_interp_lim3('T') ! interpolation of ice tracers  
     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  
    534534   lim_nbstep = 0 
    535535    
    536536   ! 
    537 END SUBROUTINE Agrif_InitValues_cont_lim3 
    538  
    539 SUBROUTINE agrif_declare_var_lim3 
    540    !!---------------------------------------------------------------------- 
    541    !!                 *** ROUTINE agrif_declare_var_lim3 *** 
     537END SUBROUTINE Agrif_InitValues_cont_si3 
     538 
     539SUBROUTINE agrif_declare_var_si3 
     540   !!---------------------------------------------------------------------- 
     541   !!                 *** ROUTINE agrif_declare_var_si3 *** 
    542542   !! 
    543543   !! ** Purpose :: Declaration of variables to be interpolated for LIM3 
    … …  
    590590#endif 
    591591 
    592 END SUBROUTINE agrif_declare_var_lim3 
     592END SUBROUTINE agrif_declare_var_si3 
    593593#endif 
    594594 
    … …  
    609609   USE trc 
    610610   USE in_out_manager 
    611    USE agrif_opa_sponge 
     611   USE agrif_oce_sponge 
    612612   USE agrif_top_update 
    613613   USE agrif_top_interp 
Note: See TracChangeset for help on using the changeset viewer.