Changeset 1791 for LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90
- Timestamp:
- Jul 17, 2013, 12:20:19 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90
r1761 r1791 14 14 REAL, SAVE, ALLOCATABLE :: snow_o(:), zfra_o(:) 15 15 !$OMP THREADPRIVATE(snow_o, zfra_o) 16 INTEGER, save, ALLOCATABLE :: itau_con(:) ! Nombre de pas ou rflag <= 116 INTEGER, SAVE, ALLOCATABLE :: itau_con(:) ! Nombre de pas ou rflag <= 1 17 17 !$OMP THREADPRIVATE(itau_con) 18 18 REAL, ALLOCATABLE :: bils_ec(:) ! Contribution of energy conservation … … 24 24 !$OMP THREADPRIVATE(bils_ec,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent) 25 25 26 ! ug Plein de variables venues de phys_output_mod 27 INTEGER, PARAMETER :: nfiles = 6 28 LOGICAL, DIMENSION(nfiles), SAVE :: clef_files 29 LOGICAL, DIMENSION(nfiles), SAVE :: clef_stations 30 INTEGER, DIMENSION(nfiles), SAVE :: lev_files 31 INTEGER, DIMENSION(nfiles), SAVE :: nid_files 32 INTEGER, DIMENSION(nfiles), SAVE :: nnid_files 33 !$OMP THREADPRIVATE(clef_files, clef_stations, lev_files,nid_files,nnid_files) 34 INTEGER, DIMENSION(nfiles), SAVE :: nnhorim 26 35 36 INTEGER, DIMENSION(nfiles), SAVE :: nhorim, nvertm 37 INTEGER, DIMENSION(nfiles), SAVE :: nvertap, nvertbp, nvertAlt 38 REAL, DIMENSION(nfiles), SAVE :: zoutm 39 CHARACTER(LEN=20), DIMENSION(nfiles), SAVE :: type_ecri 40 !$OMP THREADPRIVATE(nnhorim, nhorim, nvertm, zoutm,type_ecri) 41 CHARACTER(LEN=20), DIMENSION(nfiles), SAVE :: type_ecri_files, phys_out_filetypes 42 !$OMP THREADPRIVATE(type_ecri_files, phys_out_filetypes) 43 44 ! swaero_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics 45 LOGICAL, SAVE :: swaero_diag=.FALSE. 46 !$OMP THREADPRIVATE(swaero_diag) 47 48 INTEGER, SAVE:: levmin(nfiles) = 1 49 INTEGER, SAVE:: levmax(nfiles) 50 !$OMP THREADPRIVATE(levmin, levmax) 51 52 TYPE ctrl_out 53 INTEGER,DIMENSION(nfiles) :: flag 54 CHARACTER(len=20) :: name 55 CHARACTER(len=150) :: description 56 CHARACTER(len=20) :: unit 57 CHARACTER(len=20),DIMENSION(nfiles) :: type_ecrit 58 END TYPE ctrl_out 27 59 CONTAINS 28 60
Note: See TracChangeset
for help on using the changeset viewer.