source:
trunk/NEMO/TOP_SRC/trcwri.mpp.h
@
186
| Last change on this file since 186 was 186, checked in by opalod, 19 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.
