Changeset 1278 for LMDZ4/branches


Ignore:
Timestamp:
Dec 8, 2009, 4:17:54 PM (15 years ago)
Author:
Laurent Fairhead
Message:

Pour le 1D MPL

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90

    r1235 r1278  
     1!
     2! $Id$
    13!
    24MODULE pbl_surface_mod
    … …  
    463465!****************************************************************************************
    464466! 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
    469470!****************************************************************************************
    470471! End of declarations
Note: See TracChangeset for help on using the changeset viewer.