|
Last change
on this file since 5224 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.
