Changeset 2804


Ignore:
Timestamp:
Mar 1, 2017, 8:15:23 AM (7 years ago)
Author:
Ehouarn Millour
Message:

Fix some OpenMP typos introduced in revision 2799.
EM

Location:
LMDZ5/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/climb_hq_mod.F90

    r2799 r2804  
    2828  !$OMP THREADPRIVATE(d_h_col_vdf)
    2929  REAL, SAVE, DIMENSION(:), ALLOCATABLE :: f_h_bnd ! for diagnostics, enthalpy flux at surface
    30   !$OMP THREADPRIVATE(d_h_bnd)
     30  !$OMP THREADPRIVATE(f_h_bnd)
    3131
    3232CONTAINS

  • LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

    r2799 r2804  
    3636  REAL, SAVE, ALLOCATABLE :: d_h_col(:)       ! total enthalpy budget for each column (W/m2)
    3737  !$OMP THREADPRIVATE(d_qw_col, d_ql_col, d_qs_col, d_qt_col, d_ek_col, d_h_dair_col)
    38   !$OMP THREADPRIVATE(d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_col
     38  !$OMP THREADPRIVATE(d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_col)
    3939
    4040! Marine
Note: See TracChangeset for help on using the changeset viewer.