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.
trdmod_trc.F90 in branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/TRD – NEMO

source: branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/TRD/trdmod_trc.F90 @ 3317

Last change on this file since 3317 was 2715, checked in by rblod, 13 years ago

First attempt to put dynamic allocation on the trunk

  • Property svn:keywords set to Id
File size: 1.1 KB
Line 
1MODULE trdmod_trc
2   !!======================================================================
3   !!                       ***  MODULE trdmod_trc  ***
4   !!  Dummy module
5   !!======================================================================
6   !!----------------------------------------------------------------------
7   !!   Dummy module                                             NO TOP use
8   !!----------------------------------------------------------------------
9CONTAINS
10
11   SUBROUTINE trd_mod_trc( ptrtrd, kjn, ktrd, kt )
12      INTEGER ::   kt, kjn, ktrd   
13      REAL    ::   ptrtrd(:,:,:) 
14      WRITE(*,*) 'trd_mod_trc_trp : 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_mod_trc
17
18   !!----------------------------------------------------------------------
19   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
20   !! $Id$
21   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
22   !!======================================================================
23END MODULE trdmod_trc
Note: See TracBrowser for help on using the repository browser.