source:
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90
@
7073
Last change on this file since 7073 was 7073, checked in by cetlod, 8 years ago | |
---|---|
File size: 1.7 KB |
Line | |
---|---|
1 | MODULE trcwri_my_trc |
2 | !!====================================================================== |
3 | !! *** MODULE trcwri *** |
4 | !! my_trc : Output of my_trc tracers |
5 | !!====================================================================== |
6 | !! History : 1.0 ! 2009-05 (C. Ethe) Original code |
7 | !!---------------------------------------------------------------------- |
8 | #if defined key_top && defined key_iomput |
9 | !!---------------------------------------------------------------------- |
10 | !! trc_wri_my_trc : outputs of concentration fields |
11 | !!---------------------------------------------------------------------- |
12 | USE par_trc ! passive tracers common variables |
13 | USE trc ! passive tracers common variables |
14 | USE iom ! I/O manager |
15 | |
16 | IMPLICIT NONE |
17 | PRIVATE |
18 | |
19 | PUBLIC trc_wri_my_trc |
20 | |
21 | CONTAINS |
22 | |
23 | SUBROUTINE trc_wri_my_trc |
24 | !!--------------------------------------------------------------------- |
25 | !! *** ROUTINE trc_wri_trc *** |
26 | !! |
27 | !! ** Purpose : output passive tracers fields |
28 | !!--------------------------------------------------------------------- |
29 | CHARACTER (len=20) :: cltra |
30 | INTEGER :: jn |
31 | !!--------------------------------------------------------------------- |
32 | |
33 | ! write the tracer concentrations in the file |
34 | ! --------------------------------------- |
35 | DO jn = jp_myt0, jp_myt1 |
36 | cltra = TRIM( ctrcnm(jn) ) ! short title for tracer |
37 | CALL iom_put( cltra, trn(:,:,:,jn) ) |
38 | END DO |
39 | ! |
40 | END SUBROUTINE trc_wri_my_trc |
41 | |
42 | #else |
43 | |
44 | CONTAINS |
45 | |
46 | SUBROUTINE trc_wri_my_trc |
47 | ! |
48 | END SUBROUTINE trc_wri_my_trc |
49 | |
50 | #endif |
51 | |
52 | END MODULE trcwri_my_trc |
Note: See TracBrowser
for help on using the repository browser.