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 – 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
Location:
branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC
Files:
3 edited
5 moved

Legend:

Unmodified
Added
Removed

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

    r9019 r9570  
    77   !!            3.6  ! 2016-05  (C. Rousset)   Add LIM3 compatibility 
    88   !!---------------------------------------------------------------------- 
    9 #if defined key_agrif && defined key_lim3 
     9#if defined key_agrif && defined key_si3 
    1010   !!---------------------------------------------------------------------- 
    1111   !!   'key_agrif'                                              AGRIF zoom 
    12    !!   'key_lim3'                                       LIM3 sea-ice model 
     12   !!   'key_si3'                                       SI3 sea-ice model 
    1313   !!----------------------------------------------------------------------    
    1414   IMPLICIT NONE 

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

    r9565 r9570  
    1 MODULE agrif_opa_interp 
     1MODULE agrif_oce_interp 
    22   !!====================================================================== 
    3    !!                   ***  MODULE  agrif_opa_interp  *** 
     3   !!                   ***  MODULE  agrif_oce_interp  *** 
    44   !! AGRIF: interpolation package for the ocean dynamics (OPA) 
    55   !!====================================================================== 
    … …  
    3131   ! 
    3232   USE in_out_manager 
    33    USE agrif_opa_sponge 
     33   USE agrif_oce_sponge 
    3434   USE lib_mpp 
    3535  
    … …  
    14061406   !!---------------------------------------------------------------------- 
    14071407CONTAINS 
    1408    SUBROUTINE Agrif_OPA_Interp_empty 
    1409       WRITE(*,*)  'agrif_opa_interp : You should not have seen this print! error?' 
    1410    END SUBROUTINE Agrif_OPA_Interp_empty 
     1408   SUBROUTINE Agrif_OCE_Interp_empty 
     1409      WRITE(*,*)  'agrif_oce_interp : You should not have seen this print! error?' 
     1410   END SUBROUTINE Agrif_OCE_Interp_empty 
    14111411#endif 
    14121412 
    14131413   !!====================================================================== 
    1414 END MODULE agrif_opa_interp 
     1414END MODULE agrif_oce_interp 

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

    r9565 r9570  
    11#define SPONGE && define SPONGE_TOP 
    22 
    3 MODULE agrif_opa_sponge 
     3MODULE agrif_oce_sponge 
    44   !!====================================================================== 
    5    !!                   ***  MODULE  agrif_opa_interp  *** 
     5   !!                   ***  MODULE  agrif_oce_interp  *** 
    66   !! AGRIF: sponge package for the ocean dynamics (OPA) 
    77   !!====================================================================== 
    … …  
    611611   !!---------------------------------------------------------------------- 
    612612CONTAINS 
    613    SUBROUTINE agrif_opa_sponge_empty 
    614       WRITE(*,*)  'agrif_opa_sponge : You should not have seen this print! error?' 
    615    END SUBROUTINE agrif_opa_sponge_empty 
     613   SUBROUTINE agrif_oce_sponge_empty 
     614      WRITE(*,*)  'agrif_oce_sponge : You should not have seen this print! error?' 
     615   END SUBROUTINE agrif_oce_sponge_empty 
    616616#endif 
    617617 
    618618   !!====================================================================== 
    619 END MODULE agrif_opa_sponge 
     619END MODULE agrif_oce_sponge 

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

    r9565 r9570  
    33#undef VOL_REFLUX      /* VOLUME REFLUXING*/ 
    44  
    5 MODULE agrif_opa_update 
     5MODULE agrif_oce_update 
    66   !!====================================================================== 
    7    !!                   ***  MODULE  agrif_opa_interp  *** 
     7   !!                   ***  MODULE  agrif_oce_interp  *** 
    88   !! AGRIF: update package for the ocean dynamics (OPA) 
    99   !!====================================================================== 
    … …  
    14121412   !!---------------------------------------------------------------------- 
    14131413CONTAINS 
    1414    SUBROUTINE agrif_opa_update_empty 
    1415       WRITE(*,*)  'agrif_opa_update : You should not have seen this print! error?' 
    1416    END SUBROUTINE agrif_opa_update_empty 
     1414   SUBROUTINE agrif_oce_update_empty 
     1415      WRITE(*,*)  'agrif_oce_update : You should not have seen this print! error?' 
     1416   END SUBROUTINE agrif_oce_update_empty 
    14171417#endif 
    14181418 
    14191419   !!====================================================================== 
    1420 END MODULE agrif_opa_update 
    1421  
     1420END MODULE agrif_oce_update 
     1421 

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

    r9565 r9570  
    1 MODULE agrif_lim3_interp 
     1MODULE agrif_si3_interp 
    22   !!===================================================================================== 
    3    !!                       ***  MODULE agrif_lim3_interp *** 
     3   !!                       ***  MODULE agrif_si3_interp *** 
    44   !! Nesting module :  interp surface ice boundary condition from a parent grid 
    55   !! Sea-Ice model  :  LIM 3.6 Sea ice model time-stepping 
    … …  
    99   !!            3.6   !  05-2016  (C. Rousset)  Add LIM3 compatibility 
    1010   !!---------------------------------------------------------------------- 
    11 #if defined key_agrif && defined key_lim3  
    12    !!---------------------------------------------------------------------- 
    13    !!   'key_lim3'  :                                 LIM 3.6 sea-ice model 
     11#if defined key_agrif && defined key_si3  
     12   !!---------------------------------------------------------------------- 
     13   !!   'key_si3'  :                                 LIM 3.6 sea-ice model 
    1414   !!   'key_agrif' :                                 AGRIF library 
    1515   !!---------------------------------------------------------------------- 
    16    !!  agrif_interp_lim3    : interpolation of ice at "after" sea-ice time step 
     16   !!  agrif_interp_si3    : 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_lim3   ! called by agrif_user.F90 
     31   PUBLIC   agrif_interp_si3   ! called by agrif_user.F90 
    3232 
    3333   !!---------------------------------------------------------------------- 
    3434   !! NEMO/NST 3.6 , NEMO Consortium (2016) 
    35    !! $Id: agrif_lim3_interp.F90 6204 2016-01-04 13:47:06Z cetlod $ 
     35   !! $Id: agrif_si3_interp.F90 6204 2016-01-04 13:47:06Z cetlod $ 
    3636   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3737   !!---------------------------------------------------------------------- 
    … …  
    3939CONTAINS 
    4040 
    41    SUBROUTINE agrif_interp_lim3( cd_type, kiter, kitermax ) 
     41   SUBROUTINE agrif_interp_si3( cd_type, kiter, kitermax ) 
    4242      !!----------------------------------------------------------------------- 
    4343      !!                 *** ROUTINE agrif_rhg_lim3  *** 
    … …  
    7777      Agrif_UseSpecialValue = .FALSE. 
    7878      ! 
    79    END SUBROUTINE agrif_interp_lim3 
     79   END SUBROUTINE agrif_interp_si3 
    8080 
    8181 
    … …  
    371371   !!---------------------------------------------------------------------- 
    372372CONTAINS 
    373    SUBROUTINE agrif_lim3_interp_empty 
    374       WRITE(*,*)  'agrif_lim3_interp : You should not have seen this print! error?' 
    375    END SUBROUTINE agrif_lim3_interp_empty 
     373   SUBROUTINE agrif_si3_interp_empty 
     374      WRITE(*,*)  'agrif_si3_interp : You should not have seen this print! error?' 
     375   END SUBROUTINE agrif_si3_interp_empty 
    376376#endif 
    377377 
    378378   !!====================================================================== 
    379 END MODULE agrif_lim3_interp 
     379END MODULE agrif_si3_interp 

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

    r9565 r9570  
    22!!#undef TWO_WAY 
    33 
    4 MODULE agrif_lim3_update 
     4MODULE agrif_si3_update 
    55   !!===================================================================================== 
    6    !!                       ***  MODULE agrif_lim3_update *** 
     6   !!                       ***  MODULE agrif_si3_update *** 
    77   !! Nesting module :  update surface ocean boundary condition over ice from a child grid 
    88   !! Sea-Ice model  :  LIM 3.6 Sea ice model time-stepping 
    … …  
    1212   !!            3.6   !  05-2016  (C. Rousset)  Add LIM3 compatibility 
    1313   !!---------------------------------------------------------------------- 
    14 #if defined key_agrif && defined key_lim3 
    15    !!---------------------------------------------------------------------- 
    16    !!   'key_lim3'  :                                 LIM 3.6 sea-ice model 
     14#if defined key_agrif && defined key_si3 
     15   !!---------------------------------------------------------------------- 
     16   !!   'key_si3'  :                                 LIM 3.6 sea-ice model 
    1717   !!   'key_agrif' :                                 AGRIF library  
    1818   !!---------------------------------------------------------------------- 
    19    !!   agrif_update_lim3  : update sea-ice on boundaries or total 
     19   !!   agrif_update_si3  : 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_lim3   ! called by agrif_user.F90 and icestp.F90 
     35   PUBLIC   agrif_update_si3   ! called by agrif_user.F90 and icestp.F90 
    3636 
    3737   !!---------------------------------------------------------------------- 
    3838   !! NEMO/NST 4.0 , LOCEAN-IPSL (2017) 
    39    !! $Id: agrif_lim3_update.F90 6204 2016-01-04 13:47:06Z cetlod $ 
     39   !! $Id: agrif_si3_update.F90 6204 2016-01-04 13:47:06Z cetlod $ 
    4040   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    4141   !!---------------------------------------------------------------------- 
    4242CONTAINS 
    4343 
    44    SUBROUTINE agrif_update_lim3( kt ) 
     44   SUBROUTINE agrif_update_si3( kt ) 
    4545      !!---------------------------------------------------------------------- 
    46       !!                     *** ROUTINE agrif_update_lim3 *** 
     46      !!                     *** ROUTINE agrif_update_si3 *** 
    4747      !! ** Method  :   Call the hydrostaticupdate pressure at the boundary or the entire domain  
    4848      !! 
    … …  
    7070      Agrif_UseSpecialValueInUpdate = .FALSE. 
    7171      ! 
    72    END SUBROUTINE agrif_update_lim3 
     72   END SUBROUTINE agrif_update_si3 
    7373 
    7474 
    … …  
    210210   !!---------------------------------------------------------------------- 
    211211CONTAINS 
    212    SUBROUTINE agrif_lim3_update_empty 
    213       WRITE(*,*)  'agrif_lim3_update : You should not have seen this print! error?' 
    214    END SUBROUTINE agrif_lim3_update_empty 
     212   SUBROUTINE agrif_si3_update_empty 
     213      WRITE(*,*)  'agrif_si3_update : You should not have seen this print! error?' 
     214   END SUBROUTINE agrif_si3_update_empty 
    215215#endif 
    216216 
    217217   !!====================================================================== 
    218 END MODULE agrif_lim3_update 
     218END MODULE agrif_si3_update 

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

    r9056 r9570  
    1919   USE dom_oce 
    2020   USE agrif_oce 
    21    USE agrif_opa_sponge 
     21   USE agrif_oce_sponge 
    2222   ! 
    2323   USE in_out_manager 

  • 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.