source:
tags/nemo_dev_x9/NEMO/TOP_SRC/trcwri.mpp.h
@
1619
Last change on this file since 1619 was 186, checked in by opalod, 20 years ago | |
---|---|
|
|
File size: 1.4 KB |
Line | |
---|---|
1 | C $Id$ |
2 | CCC |
3 | CCC trcwri.mpp |
4 | CCC ************** |
5 | CCC |
6 | CDIR$ NOLIST |
7 | USE oce_trc |
8 | USE trc |
9 | IMPLICIT NONE |
10 | |
11 | CDIR$ LIST |
12 | CC---------------------------------------------------------------------- |
13 | CC local declarations |
14 | CC ================== |
15 | INTEGER kt |
16 | |
17 | #if defined key_passivetrc |
18 | |
19 | INTEGER jn |
20 | INTEGER ino0,it0,iarak0 |
21 | |
22 | CCC--------------------------------------------------------------------- |
23 | CCC OPA8, LODYC (15/11/96) |
24 | CCC--------------------------------------------------------------------- |
25 | C |
26 | C |
27 | C 1. OUTPUT of restart fields (nutwrs) |
28 | C --------------------------- |
29 | C |
30 | IF( (mod(kt,nstock).eq.0) .OR. (kt.eq.nitend) ) THEN |
31 | C |
32 | C 1.0 initializations |
33 | C |
34 | IF(lwp) THEN |
35 | WRITE(numout,*) ' ' |
36 | WRITE(numout,*) |
37 | $ ' trcwri: restart OUTPUT done in nutwrs = ',nutwrs |
38 | $ ,' at it= ',kt,' date= ',ndastp |
39 | WRITE(numout,*) ' -------' |
40 | ENDIF |
41 | C |
42 | ino0 =no |
43 | it0 =kt |
44 | |
45 | #if defined key_trc_cen2 |
46 | iarak0=1 |
47 | #else |
48 | iarak0=0 |
49 | #endif |
50 | C |
51 | C 1.1 WRITE |
52 | C |
53 | C first record |
54 | C |
55 | IF(lwp) WRITE (nutwrs,REC=1) ino0,it0,iarak0 |
56 | C |
57 | C prognostic variables |
58 | C |
59 | |
60 | DO jn=1,jptra |
61 | CALL write3(nutwrs,trn(1,1,1,jn), jn + 1 ) |
62 | END DO |
63 | |
64 | DO jn=1,jptra |
65 | CALL write3(nutwrs,trb(1,1,1,jn), jptra + jn + 1 ) |
66 | END DO |
67 | ENDIF |
68 | C |
Note: See TracBrowser
for help on using the repository browser.