Context Navigation

trdtrc.F90 @ 9570

Last change on this file since 9570 was 9570, checked in by nicolasmartin, 6 years ago

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 size: 1.1 KB

Line
1	MODULE trdtrc
2	!!======================================================================
3	!! * MODULE trdtrc *
4	!! Dummy module
5	!!======================================================================
6	!!----------------------------------------------------------------------
7	!! Dummy module NO TOP use
8	!!----------------------------------------------------------------------
9	CONTAINS
10
11	SUBROUTINE trd_trc( ptrtrd, kjn, ktrd, kt )
12	INTEGER :: kt, kjn, ktrd
13	REAL :: ptrtrd(:,:,:)
14	WRITE(,) 'trd_trc : You should not have seen this print! error?', ptrtrd(1,1,1)
15	WRITE(,) ' " " : You should not have seen this print! error?', kjn, ktrd, kt
16	END SUBROUTINE trd_trc
17
18	!!----------------------------------------------------------------------
19	!! NEMO/OCE 3.3 , NEMO Consortium (2010)
20	!! $Id$
21	!! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
22	!!======================================================================
23	END MODULE trdtrc

Note: See TracBrowser for help on using the repository browser.