source: LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90 @ 1999

Last change on this file since 1999 was 1938, checked in by lguez, 11 years ago

New run-time parameters: ok_gwd_rando, ruwmax and sat. Logical
variable ok_gwd_rando activates the new stochastic parameterization of
the drag of non-orographic gravity waves, by F. Lott. Default value of
ok_gwd_rando is false. A run with ok_gwd_rando creates new variables
in restartphy.nc: du_gwd_rando and dv_gwd_rando. Possible output in
history files of new variables du_gwd_rando, dv_gwd_rando and
vstr_gwd_rando.
  • 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: 3.8 KB
Line 
1!
2! phys_local_var_mod.F90 1327 2010-03-17 15:33:56Z idelkadi $
3
4MODULE phys_output_var_mod
5
6  use dimphy
7  ! Variables outputs pour les ecritures des sorties
8  !======================================================================
9  !
10  !
11  !======================================================================
12  ! Declaration des variables
13
14  REAL, SAVE, ALLOCATABLE :: snow_o(:), zfra_o(:)
15  !$OMP THREADPRIVATE(snow_o, zfra_o)
16  INTEGER, SAVE, ALLOCATABLE ::  itau_con(:)       ! Nombre de pas ou rflag <= 1
17  !$OMP THREADPRIVATE(itau_con)
18  REAL, ALLOCATABLE :: bils_ec(:) ! Contribution of energy conservation
19  REAL, ALLOCATABLE :: bils_tke(:) ! Contribution of energy conservation
20  REAL, ALLOCATABLE :: bils_diss(:) ! Contribution of energy conservation
21  REAL, ALLOCATABLE :: bils_kinetic(:) ! bilan de chaleur au sol, kinetic
22  REAL, ALLOCATABLE :: bils_enthalp(:) ! bilan de chaleur au sol
23  REAL, ALLOCATABLE :: bils_latent(:) ! bilan de chaleur au sol
24  !$OMP THREADPRIVATE(bils_ec,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
25
26
27  ! ug Plein de variables venues de phys_output_mod
28  INTEGER, PARAMETER                           :: nfiles = 9
29  LOGICAL, DIMENSION(nfiles), SAVE             :: clef_files
30  LOGICAL, DIMENSION(nfiles), SAVE             :: clef_stations
31  INTEGER, DIMENSION(nfiles), SAVE             :: lev_files
32  INTEGER, DIMENSION(nfiles), SAVE             :: nid_files
33  INTEGER, DIMENSION(nfiles), SAVE  :: nnid_files
34  !$OMP THREADPRIVATE(clef_files, clef_stations, lev_files,nid_files,nnid_files)
35  INTEGER, DIMENSION(nfiles), SAVE :: nnhorim
36
37  INTEGER, DIMENSION(nfiles), SAVE :: nhorim, nvertm
38  INTEGER, DIMENSION(nfiles), SAVE :: nvertap, nvertbp, nvertAlt
39  REAL, DIMENSION(nfiles), SAVE                :: zoutm
40  CHARACTER(LEN=20), DIMENSION(nfiles), SAVE   :: type_ecri
41  !$OMP THREADPRIVATE(nnhorim, nhorim, nvertm, zoutm,type_ecri)
42  CHARACTER(LEN=20), DIMENSION(nfiles), SAVE  :: type_ecri_files, phys_out_filetypes
43  !$OMP THREADPRIVATE(type_ecri_files, phys_out_filetypes)
44  CHARACTER(LEN=20), DIMENSION(nfiles), SAVE  :: phys_out_filenames
45  !$OMP THREADPRIVATE(phys_out_filenames)
46
47  ! swaero_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics
48  LOGICAL, SAVE                                :: swaero_diag=.FALSE.
49  !$OMP THREADPRIVATE(swaero_diag)
50
51  INTEGER, SAVE:: levmin(nfiles) = 1
52  INTEGER, SAVE:: levmax(nfiles)
53  !$OMP THREADPRIVATE(levmin, levmax)
54
55  REAL, SAVE                :: zdtime_moy
56  !$OMP THREADPRIVATE(zdtime_moy)
57
58  LOGICAL, SAVE :: vars_defined = .FALSE. ! ug PAS THREADPRIVATE ET C'EST NORMAL
59
60  REAL, allocatable:: zustr_gwd_rando(:), zvstr_gwd_rando(:) ! (klon)
61  !$OMP THREADPRIVATE(zustr_gwd_rando, zvstr_gwd_rando)
62
63  TYPE ctrl_out
64     INTEGER,DIMENSION(nfiles)            :: flag
65     CHARACTER(len=20)                    :: name
66     CHARACTER(len=150)                   :: description
67     CHARACTER(len=20)                    :: unit
68     CHARACTER(len=20),DIMENSION(nfiles)  :: type_ecrit
69  END TYPE ctrl_out
70
71CONTAINS
72
73  !======================================================================
74  SUBROUTINE phys_output_var_init
75    use dimphy
76
77    IMPLICIT NONE
78
79    include "clesphys.h"
80
81    !------------------------------------------------
82
83    allocate(snow_o(klon), zfra_o(klon))
84    allocate(itau_con(klon))
85    allocate (bils_ec(klon),bils_tke(klon),bils_diss(klon),bils_kinetic(klon),bils_enthalp(klon),bils_latent(klon))
86
87    IF (ok_gwd_rando) allocate(zustr_gwd_rando(klon), zvstr_gwd_rando(klon))
88
89  END SUBROUTINE phys_output_var_init
90
91  !======================================================================
92  SUBROUTINE phys_output_var_end
93    use dimphy
94    IMPLICIT NONE
95
96    deallocate(snow_o,zfra_o,itau_con)
97    deallocate (bils_ec,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
98
99  END SUBROUTINE phys_output_var_end
100
101END MODULE phys_output_var_mod
Note: See TracBrowser for help on using the repository browser.