source:
LMDZ5/branches/testing/libf/phy1d/fcg_racmo.h
@
1705
Last change on this file since 1705 was 1665, checked in by , 12 years ago | |
---|---|
File size: 298 bytes |
Line | |
---|---|
1 | ! |
2 | ! $Id: fcg_racmo.h 2011-02-16 17:02:56Z cheruy $ |
3 | ! |
4 | real :: a_guide |
5 | logical :: ok_invertp |
6 | integer :: forc_trb |
7 | character*31 :: fich_racmo |
8 | |
9 | common /fcg_racmo/forc_trb,ok_invertp,a_guide,fich_racmo |
10 | |
11 | !$OMP THREADPRIVATE(/fcg_racmo/) |
12 | |
13 | |
14 | |
15 | |
16 | |
17 | |
18 | |
19 | |
20 | |
21 | |
22 | |
23 | |
24 | |
25 | |
26 | |
27 | |
28 | |
29 | |
30 | |
31 | |
32 | |
33 | |
34 | |
35 | |
36 | |
37 | |
38 | |
39 | |
40 | |
41 | |
42 | |
43 | |
44 | |
45 |
Note: See TracBrowser
for help on using the repository browser.