source: LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/fcg_gcssold.h @ 5416

Last change on this file since 5416 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
Line 
1!
2! $Id: fcg_gcssold.h 2010-08-10 17:02:56Z lahellec $
3!
4      logical :: imp_fcg_gcssold,ts_fcg_gcssold,Tp_fcg_gcssold
5      logical :: Tp_ini_gcssold
6      logical :: xTurb_fcg_gcssold
7
8      common /fcg_gcssold/imp_fcg_gcssold,ts_fcg_gcssold,Tp_fcg_gcssold,        & 
9     & Tp_ini_gcssold,                                                          &
10     & xTurb_fcg_gcssold
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.