Last change
on this file since 5501 was
5501,
checked in by aclsce, 4 years ago
|
First import of IPSLCM6.5_work_ENSEMBLES working configuration
|
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 4.0 , NEMO Consortium (2018) |
---|
20 | !! $Id: trdtrc.F90 10068 2018-08-28 14:09:04Z nicolasmartin $ |
---|
21 | !! Software governed by the CeCILL license (see ./LICENSE) |
---|
22 | !!====================================================================== |
---|
23 | END MODULE trdtrc |
---|
Note: See
TracBrowser
for help on using the repository browser.