Ignore:
Timestamp:
Oct 30, 2024, 2:26:24 PM (41 hours ago)
Author:
abarral
Message:

Turn planete.h comsoil.h into module
Remove obsolete message related to /scratch/ common

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/planete_mod_h.f90

    r5297 r5298  
    1 !-----------------------------------------------------------------------
    2 ! INCLUDE planet.h
     1MODULE planete_mod_h
     2  IMPLICIT NONE; PRIVATE
     3  PUBLIC aphelie, periheli, year_day, peri_day, obliquit, timeperi, e_elips, p_elips, unitastr
    34
    4       COMMON/planet/aphelie,periheli,year_day,peri_day, obliquit, timeperi,&
    5            e_elips,p_elips,unitastr
     5  REAL aphelie, periheli, year_day, peri_day, obliquit, timeperi, e_elips, &
     6          p_elips, unitastr
    67
    7       REAL aphelie,periheli,year_day,peri_day, obliquit, timeperi,e_elips, &
    8            p_elips,unitastr
    9 
    10 !-----------------------------------------------------------------------
    11 !$OMP THREADPRIVATE(/planet/)
     8  !$OMP THREADPRIVATE(aphelie, periheli, year_day, peri_day, obliquit, timeperi, e_elips, p_elips, unitastr)
     9END MODULE planete_mod_h
Note: See TracChangeset for help on using the changeset viewer.