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

simple_physics : planete.h => MODULE planet.F90

File:
1 moved

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/simple_physics/phyparam/physics/planet.F90

    r4178 r4184  
    1 c-----------------------------------------------------------------------
    2 c INCLUDE planet.h
     1MODULE planet
     2  IMPLICIT NONE
     3  SAVE
    34
    4       COMMON/planet/aphelie,periheli,year_day,peri_day,
    5      $       obliquit,
    6      $       lmixmin,emin_turb,
    7      $       coefvis,coefir
     5  REAL :: aphelie, periheli, year_day, peri_day, obliquit, &
     6       coefvis, coefir, &
     7       lmixmin=100., emin_turb=1e-8
     8 
     9  REAL, PARAMETER :: karman=0.4
    810
    9       REAL aphelie,periheli,year_day,peri_day,
    10      $     obliquit,
    11      $     lmixmin,emin_turb,
    12      $     coefvis,coefir
    13 
    14 c-----------------------------------------------------------------------
     11END MODULE planet
Note: See TracChangeset for help on using the changeset viewer.