Changeset 9570 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/timing.F90

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/OCE_SRC

Files:

• . (moved) (moved from branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC)
• timing.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/timing.F90

@@ -77 +77 @@
    LOGICAL :: lwriter
    !!----------------------------------------------------------------------
-   !! NEMO/OPA 4.0 , NEMO Consortium (2011)
+   !! NEMO/OCE 4.0 , NEMO Consortium (2011)
    !! $Id$
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
@@ -307 +307 @@
       CALL MPI_ALLGATHER(t_elaps(2), 1, MPI_DOUBLE_PRECISION,   &
                          all_etime , 1, MPI_DOUBLE_PRECISION,   &
-                         MPI_COMM_OPA, icode)
+                         MPI_COMM_OCE, icode)
       CALL MPI_ALLGATHER(t_cpu(2) , 1, MPI_DOUBLE_PRECISION,   &
                          all_ctime, 1, MPI_DOUBLE_PRECISION,   &
-                         MPI_COMM_OPA, icode)
+                         MPI_COMM_OCE, icode)
       tot_etime = SUM(all_etime(:))
       tot_ctime = SUM(all_ctime(:))
@@ -467 +467 @@
          CALL MPI_GATHER(s_timer%cname     , 20, MPI_CHARACTER,   &
                          sl_timer_glob%cname, 20, MPI_CHARACTER,   &
-                         0, MPI_COMM_OPA, icode)
+                         0, MPI_COMM_OCE, icode)
          CALL MPI_GATHER(s_timer%tsum_clock     , 1, MPI_DOUBLE_PRECISION,   &
                          sl_timer_glob%tsum_clock, 1, MPI_DOUBLE_PRECISION,   &
-                         0, MPI_COMM_OPA, icode)
+                         0, MPI_COMM_OCE, icode)
          CALL MPI_GATHER(s_timer%tsum_cpu     , 1, MPI_DOUBLE_PRECISION,   &
                          sl_timer_glob%tsum_cpu, 1, MPI_DOUBLE_PRECISION,   &
-                         0, MPI_COMM_OPA, icode)
+                         0, MPI_COMM_OCE, icode)
          CALL MPI_GATHER(s_timer%niter     , 1, MPI_INTEGER,   &
                          sl_timer_glob%niter, 1, MPI_INTEGER,   &
-                         0, MPI_COMM_OPA, icode)
+                         0, MPI_COMM_OCE, icode)
 
          IF( narea == 1 .AND. ASSOCIATED(s_timer%next) ) THEN