Changeset 3784 for LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Nov 9, 2020, 3:09:22 PM (4 years ago)

Author:

evignon

Message:

correction v3783 pour convergence et compilation ancienne physique, Etienne aide par Ehouarn

File:

• LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -504 +504 @@
     CHARACTER(len=8), DIMENSION(nbsrf), SAVE :: cl_surf
 !$OMP THREADPRIVATE(cl_surf)
- ! EV Ne sert plus:
- !   REAL, SAVE                               :: beta_land         ! beta for wx_dts
-!!$OMP THREADPRIVATE(beta_land)
+    REAL, SAVE                               :: beta_land         ! beta for wx_dts
+!$OMP THREADPRIVATE(beta_land)
 
 ! Other local variables
@@ -848 +847 @@
        if (klon_glo>1) ok_forc_tsurf=.FALSE.
 
-
        ! intialize beta_land
-       !beta_land = 0.5
-       !call getin_p('beta_land', beta_land)
+       beta_land = 0.5
+       call getin_p('beta_land', beta_land)
        
        ! Initilize debug IO