source: LMDZ5/trunk/libf/phy1d/compar1d.h @ 1995

Last change on this file since 1995 was 1960, checked in by fhourdin, 11 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
RevLine 
[1607]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
[1769]27      logical :: ok_old_disvert
[1607]28
[1960]29      common/com_par1d/
30     & nat_surf,tsurf,rugos,                                            &
[1607]31     & qsol,qsurf,psurf,zsurf,albedo,time,time_ini,xlat,xlon,airefi,    &
32     & wtsurf,wqsurf,restart_runoff,xagesno,qsolinp,zpicinp,            &
[1960]33     & forcing_type,
[1769]34     & restart,ok_old_disvert
[1607]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.