source: NEMO/trunk/src/OCE/TRD/trdtrc.F90 @ 13286

Last change on this file since 13286 was 13226, checked in by orioltp, 8 months ago

Merging dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation into the trunk

  • Property svn:keywords set to Id
File size: 1.1 KB
Line 
1MODULE trdtrc
2   USE par_kind
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, Kmm )
13      INTEGER ::   kt, kjn, ktrd   
14      INTEGER ::   Kmm            ! time level index
15      REAL(wp)::   ptrtrd(:,:,:) 
16      WRITE(*,*) 'trd_trc : You should not have seen this print! error?', ptrtrd(1,1,1)
17      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kjn, ktrd, kt
18   END SUBROUTINE trd_trc
19
20   !!----------------------------------------------------------------------
21   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
22   !! $Id$
23   !! Software governed by the CeCILL license (see ./LICENSE)
24   !!======================================================================
25END MODULE trdtrc
Note: See TracBrowser for help on using the repository browser.