source:
trunk/NEMO/TOP_SRC/SMS/trclsm.cfc.h
@
186
Last change on this file since 186 was 186, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 1.5 KB |
Line | |
---|---|
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_cfc |
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.cfc' |
28 | OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old') |
29 | |
30 | write(numout,*) 'kbrlsm1: ' |
31 | C |
32 | C Namelist traback : |
33 | C |
34 | READ(numnat,coffset) |
35 | |
36 | write(numout,*) 'kbrlsm2: ' |
37 | |
38 | IF(lwp) THEN |
39 | WRITE(numout,*) ' ' |
40 | WRITE(numout,*) 'coffset' |
41 | write(numout,coffset) |
42 | WRITE(numout,*) ' ' |
43 | ENDIF |
44 | |
45 | c |
46 | c |
47 | c calcul de nit000 et nitend d'apres les informations du namelist |
48 | c --------------------------------------------------------------- |
49 | c nan = nint(datedeb/10000.) |
50 | c itan = nint ( 24.*365.*60.*60. / rdt ) |
51 | c itmoi= nint(((24.*365.*60.*60)/12.)/rdt) |
52 | c |
53 | c nit000 = ( iannee-nan-1900) * itan |
54 | c . + imoistart * itmoi +1 |
55 | c |
56 | c nitend = nit000 + itstep |
57 | c . + iyrstep * itan |
58 | c . +imoistep * itmoi - 1 |
59 | c |
60 | c |
61 | c WRITE (numout,*) ' ' |
62 | c WRITE (numout,*) 'nit000 = ',nit000,' nitend=',nitend |
63 | |
64 | #endif |
65 | |
66 | |
67 | |
68 | |
69 | |
70 | |
71 | |
72 |
Note: See TracBrowser
for help on using the repository browser.