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.
trdtrc.F90 in branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/TRD – NEMO

source: branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/TRD/trdtrc.F90 @ 8201

Last change on this file since 8201 was 8201, checked in by frrh, 7 years ago

Merge MEDUSA branch using command:

svn merge -r 5711:8182 \u200b\u200bsvn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/NERC/dev_r5518_NOC_MEDUSA_Stable

and run "fcm conflicts" to resolve conflicts - mainly tree conflicts in AGRIF files.
File size: 1.1 KB
Line 
1#if ! defined key_top
2MODULE trdtrc
3   !!======================================================================
4   !!                       ***  MODULE trdtrc  ***
5   !!  Dummy module
6   !!======================================================================
7   !!----------------------------------------------------------------------
8   !!   Dummy module                                             NO TOP use
9   !!----------------------------------------------------------------------
10CONTAINS
11
12   SUBROUTINE trd_trc( ptrtrd, kjn, ktrd, kt )
13      INTEGER ::   kt, kjn, ktrd   
14      REAL    ::   ptrtrd(:,:,:) 
15      WRITE(*,*) 'trd_trc : You should not have seen this print! error?', ptrtrd(1,1,1)
16      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kjn, ktrd, kt
17   END SUBROUTINE trd_trc
18
19   !!----------------------------------------------------------------------
20   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
21   !! $Id$
22   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
23   !!======================================================================
24END MODULE trdtrc
25#endif
Note: See TracBrowser for help on using the repository browser.