- Timestamp:
- Dec 8, 2009, 4:17:54 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90
r1235 r1278 1 ! 2 ! $Id$ 1 3 ! 2 4 MODULE pbl_surface_mod … … 463 465 !**************************************************************************************** 464 466 ! Declarations specifiques pour le 1D. A reprendre 465 REAL,SAVE :: fsens,flat 466 LOGICAL,SAVE :: ok_flux_surf=.FALSE. 467 !$OMP THREADPRIVATE(fsens,flat,ok_flux_surf) 468 467 REAL :: fsens,flat 468 LOGICAL :: ok_flux_surf=.FALSE. 469 COMMON /flux_arp/fsens,flat,ok_flux_surf 469 470 !**************************************************************************************** 470 471 ! End of declarations
Note: See TracChangeset
for help on using the changeset viewer.