Ignore:
Timestamp:
Dec 19, 2019, 4:51:01 PM (5 years ago)
Author:
dubos
Message:

simple_physics : planete.h => MODULE planet.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/simple_physics/phyparam/param/vdif.F

    r4183 r4184  
    77     $                lwrite)
    88      USE phys_const
     9      USE planet, ONLY : karman
    910      IMPLICIT NONE
    1011
    … …  
    6768
    6869      EXTERNAL coefdifv
    69       REAL, SAVE :: karman=0.4
    7070      INTEGER, SAVE :: icount=0
    71 !$OMP THREADPRIVATE(karman,icount)
     71!$OMP THREADPRIVATE(icount)
    7272
    7373c
Note: See TracChangeset for help on using the changeset viewer.