source: LMDZ5/branches/LF-private/libf/phylmd/conema3.h @ 2261

Last change on this file since 2261 was 1877, checked in by Laurent Fairhead, 11 years ago

Ménage sur le code pour éliminer les calculs spécifiques ISCCP hors COSP
Un certain nombre de variables non utilisées dans physiq.F90 ont aussi
été supprimée. Environ 840 lignes supprimées du code physiq.F90


Code cleanup to eliminate specific references to ISCCP outside the COSP
library. Unused variables have been cleaned up from the physiq.F90 routine
as well.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 479 bytes
Line 
1!
2! $Header$
3!-- Modified by : Filiberti M-A 06/2005
4!
5      real epmax             ! 0.993
6      logical ok_adj_ema      ! F
7      integer iflag_clw      ! 0
8      integer iflag_cvl_sigd
9      real sig1feed      ! 1.
10      real sig2feed      ! 0.95
11
12      common/comconema1/epmax,ok_adj_ema,iflag_clw,sig1feed,sig2feed
13      common/comconema2/iflag_cvl_sigd
14
15!      common/comconema/epmax,ok_adj_ema,iflag_clw
16!$OMP THREADPRIVATE(/comconema1/)
17!$OMP THREADPRIVATE(/comconema2/)
Note: See TracBrowser for help on using the repository browser.