source: NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/TRD/trdtrc.F90 @ 11003

Last change on this file since 11003 was 10068, checked in by nicolasmartin, 3 years ago

First part of modifications to have a common default header : fix typos and SVN keywords properties

  • Property svn:keywords set to Id
File size: 1.1 KB
Line 
1MODULE trdtrc
2   !!======================================================================
3   !!                       ***  MODULE trdtrc  ***
4   !!  Dummy module
5   !!======================================================================
6   !!----------------------------------------------------------------------
7   !!   Dummy module                                             NO TOP use
8   !!----------------------------------------------------------------------
9CONTAINS
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 4.0 , NEMO Consortium (2018)
20   !! $Id$
21   !! Software governed by the CeCILL license (see ./LICENSE)
22   !!======================================================================
23END MODULE trdtrc
Note: See TracBrowser for help on using the repository browser.