Ignore:
Timestamp:
May 31, 2017, 12:52:35 AM (7 years ago)
Author:
fhourdin
Message:

Corrections de bugs sur les deux dernieres commissions

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

Legend:

Unmodified
Added
Removed

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

    r2896 r2898  
    5252    USE indice_sol_mod
    5353    USE print_control_mod, ONLY: lunout
     54    USE ioipsl_getin_p_mod, ONLY : getin_p
    5455
    5556    INCLUDE "dimsoil.h"

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

    r2897 r2898  
    8181      !$OMP THREADPRIVATE(d_u_oro, d_v_oro)
    8282      REAL, SAVE, ALLOCATABLE :: d_t_oro_gw(:,:)
    83       !$OMP THREADPRIVATE(d_t_oro)
     83      !$OMP THREADPRIVATE(d_t_oro_gw)
    8484      REAL, SAVE, ALLOCATABLE :: d_u_oro_gw(:,:), d_v_oro_gw(:,:)
    8585      !$OMP THREADPRIVATE(d_u_oro_gw, d_v_oro_gw)
Note: See TracChangeset for help on using the changeset viewer.