source: LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3d/guide.h @ 1198

Last change on this file since 1198 was 524, checked in by lmdzadmin, 20 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 926 bytes
Line 
1!
2! $Header$
3!
4      real tau_min_u,tau_max_u
5      real tau_min_v,tau_max_v
6      real tau_min_T,tau_max_T
7      real tau_min_q,tau_max_q
8      real tau_min_P,tau_max_P
9      real aire_min,aire_max
10
11
12      logical guide_u,guide_v,guide_T,guide_Q,guide_P
13
14      real lat_min_guide,lat_max_guide
15
16
17c     data tau_min_u,tau_max_u/0.02,10./
18c     data tau_min_v,tau_max_v/0.02,10./
19c     data tau_min_T,tau_max_T/0.02,10./
20c     data tau_min_q,tau_max_q/0.02,10./
21c     data tau_min_P,tau_max_P/0.02,10./
22c
23      LOGICAL ncep,ini_anal
24      integer online
25
26c     data online/1/
27c     data ncep,ini_anal/.false.,.true./
28
29      common/comguide/
30     s tau_min_u,tau_max_u,
31     s tau_min_v,tau_max_v,
32     s tau_min_T,tau_max_T,
33     s tau_min_q,tau_max_q,
34     s tau_min_P,tau_max_P,
35     s aire_min,aire_max,
36     s lat_min_guide,lat_max_guide,
37     s ncep,ini_anal,
38     s online,
39     s guide_u,guide_v,guide_T,guide_Q,guide_P
Note: See TracBrowser for help on using the repository browser.