|
Last change
on this file since 1999 was
1960,
checked in by fhourdin, 10 years ago
|
|
Nettoyage du code 1D pour limiter les warning en mode debug.
Essentiellement des declarations inutiles.
Cleaning of the 1D code in order to limit warnings in debug mode.
Essentially supressing unused declared variables.
|
-
Property copyright set to
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory
|
|
File size:
899 bytes
|
| Line | |
|---|
| 1 | ! |
|---|
| 2 | ! $Id: compar1d.h 2010-08-04 17:02:56Z lahellec $ |
|---|
| 3 | ! |
|---|
| 4 | integer :: forcing_type |
|---|
| 5 | real :: nat_surf |
|---|
| 6 | real :: tsurf |
|---|
| 7 | real :: rugos |
|---|
| 8 | real :: qsol(1:2) |
|---|
| 9 | real :: qsurf |
|---|
| 10 | real :: psurf |
|---|
| 11 | real :: zsurf |
|---|
| 12 | real :: albedo |
|---|
| 13 | |
|---|
| 14 | real :: time |
|---|
| 15 | real :: time_ini |
|---|
| 16 | real :: xlat |
|---|
| 17 | real :: xlon |
|---|
| 18 | real :: airefi |
|---|
| 19 | real :: wtsurf |
|---|
| 20 | real :: wqsurf |
|---|
| 21 | real :: restart_runoff |
|---|
| 22 | real :: xagesno |
|---|
| 23 | real :: qsolinp |
|---|
| 24 | real :: zpicinp |
|---|
| 25 | |
|---|
| 26 | logical :: restart |
|---|
| 27 | logical :: ok_old_disvert |
|---|
| 28 | |
|---|
| 29 | common/com_par1d/ |
|---|
| 30 | & nat_surf,tsurf,rugos, & |
|---|
| 31 | & qsol,qsurf,psurf,zsurf,albedo,time,time_ini,xlat,xlon,airefi, & |
|---|
| 32 | & wtsurf,wqsurf,restart_runoff,xagesno,qsolinp,zpicinp, & |
|---|
| 33 | & forcing_type, |
|---|
| 34 | & restart,ok_old_disvert |
|---|
| 35 | |
|---|
| 36 | !$OMP THREADPRIVATE(/com_par1d/) |
|---|
| 37 | |
|---|
| 38 | |
|---|
| 39 | |
|---|
| 40 | |
|---|
| 41 | |
|---|
| 42 | |
|---|
| 43 | |
|---|
| 44 | |
|---|
| 45 | |
|---|
| 46 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
