source:
tags/nemo_v1_01/NEMO/TOP_SRC/trcwri.mpp.h
@
2036
Last change on this file since 2036 was 247, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 1.4 KB |
Line | |
---|---|
1 | CCC $Header$ |
2 | CCC TOP 1.0 , LOCEAN-IPSL (2005) |
3 | C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt |
4 | C --------------------------------------------------------------------------- |
5 | CCC |
6 | CCC trcwri.mpp |
7 | CCC ************** |
8 | CCC |
9 | CDIR$ NOLIST |
10 | USE oce_trc |
11 | USE trc |
12 | IMPLICIT NONE |
13 | |
14 | CDIR$ LIST |
15 | CC---------------------------------------------------------------------- |
16 | CC local declarations |
17 | CC ================== |
18 | INTEGER kt |
19 | |
20 | #if defined key_passivetrc |
21 | |
22 | INTEGER jn |
23 | INTEGER ino0,it0,iarak0 |
24 | |
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.