source: LMDZ5/trunk/libf/phylmd/fcg_gcssold.h @ 5018

Last change on this file since 5018 was 2019, checked in by fhourdin, 11 years ago

Passage au format libre pour inclure les ficheirs du 1D dans lmdz1d.F90

File size: 448 bytes
RevLine 
[2017]1!
2! $Id: fcg_gcssold.h 2010-08-10 17:02:56Z lahellec $
3!
[2019]4      logical :: imp_fcg_gcssold,ts_fcg_gcssold,Tp_fcg_gcssold
5      logical :: Tp_ini_gcssold
6      logical :: xTurb_fcg_gcssold
[2017]7
[2019]8      common /fcg_gcssold/imp_fcg_gcssold,ts_fcg_gcssold,Tp_fcg_gcssold,        & 
9     & Tp_ini_gcssold,                                                          &
10     & xTurb_fcg_gcssold
[2017]11
12!$OMP THREADPRIVATE(/fcg_gcssold/)
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
46
Note: See TracBrowser for help on using the repository browser.