source:
trunk/NEMO/TOP_SRC/SMS/trclsm.gosac.h
@
186
Last change on this file since 186 was 186, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 1.5 KB |
Rev | Line | |
---|---|---|
[186] | 1 | CCC $Header$ |
2 | CCC | |
3 | CCC trclsm.cfc.h | |
4 | CCC **************** | |
5 | CCC | |
6 | CCC PURPOSE : | |
7 | CCC --------- | |
8 | CCC READs and PRINT options for cfc namelist | |
9 | ||
10 | #if defined key_passivetrc && defined key_gosac | |
11 | ckbr | |
12 | ckbr | |
13 | INTEGER ji | |
14 | CHARACTER*32 clname | |
15 | ||
16 | CC | |
17 | CCC--------------------------------------------------------------------- | |
18 | CCC OPA8, LODYC (15/11/96) | |
19 | CCC--------------------------------------------------------------------- | |
20 | C | |
21 | C 0. initializations | |
22 | C ------------------ | |
23 | ||
24 | namelist/coffset/xinitri | |
25 | ||
26 | numnat=80 | |
27 | clname ='namelist.sms.gosac' | |
28 | OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old') | |
29 | ||
30 | ||
31 | write(numout,*) 'kbrlsm1: ' | |
32 | C | |
33 | C Namelist traback : | |
34 | C | |
35 | READ(numnat,coffset) | |
36 | ||
37 | write(numout,*) 'kbrlsm2: ' | |
38 | WRITE(numout,*) 'kbrlsm3:xinitri= ', xinitri | |
39 | ||
40 | IF(lwp) THEN | |
41 | WRITE(numout,*) ' ' | |
42 | WRITE(numout,*) 'coffset' | |
43 | write(numout,coffset) | |
44 | WRITE(numout,*) ' ' | |
45 | ENDIF | |
46 | ||
47 | c | |
48 | c | |
49 | c calcul de nit000 et nitend d'apres les informations du namelist | |
50 | c --------------------------------------------------------------- | |
51 | c nan = nint(datedeb/10000.) | |
52 | c itan = nint ( 24.*365.*60.*60. / rdt ) | |
53 | c itmoi= nint(((24.*365.*60.*60)/12.)/rdt) | |
54 | c | |
55 | c nit000 = ( iannee-nan-1900) * itan | |
56 | c . + imoistart * itmoi +1 | |
57 | c | |
58 | c nitend = nit000 + itstep | |
59 | c . + iyrstep * itan | |
60 | c . +imoistep * itmoi - 1 | |
61 | c | |
62 | c | |
63 | c WRITE (numout,*) ' ' | |
64 | c WRITE (numout,*) 'nit000 = ',nit000,' nitend=',nitend | |
65 | ||
66 | #endif | |
67 | ||
68 | ||
69 | ||
70 | ||
71 | ||
72 | ||
73 | ||
74 |
Note: See TracBrowser
for help on using the repository browser.