Ignore:
Timestamp:
Dec 20, 2019, 12:07:05 AM (6 years ago)
Author:
dubos
Message:

simple_physics : cleanup astronomy

Location:
dynamico_lmdz/simple_physics/phyparam/param
Files:
5 edited

Legend:

Unmodified
Added
Removed

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

    r4176 r4190  
    11      SUBROUTINE iniorbit
    22     $     (paphelie,pperiheli,pyear_day,pperi_day,pobliq)
     3      USE astronomy
    34      IMPLICIT NONE
    45
    … …  
    3233
    3334c-----------------------------------------------------------------------
    34 c   Declarations:
    35 c   -------------
    36 
    37 #include "comorbit.h"
    3835
    3936c   Arguments:
    … …  
    5653      peri_day=pperi_day
    5754
    58       pi=2.*asin(1.)
    5955      PRINT*,'Perihelie en Mkm  ',periheli
    6056      PRINT*,'Aphelise  en Mkm  ',aphelie
    6157      PRINT*,'obliquite en degres  :',obliquit
    62       unitastr=149.597927
     58
    6359      e_elips=(aphelie-periheli)/(periheli+aphelie)
    6460      p_elips=0.5*(periheli+aphelie)*(1-e_elips*e_elips)/unitastr

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

    r4189 r4190  
    1111      use comsaison
    1212      USE geometry_mod, ONLY : longitude,latitude,cell_area
    13       USE phys_const, ONLY : pi,rad,g,r,cpp,rcp,dtphys,unjours,mugaz
     13      USE phys_const, ONLY : rad,g,r,cpp,rcp,dtphys,unjours,mugaz
    1414      USE planet, ONLY : coefir, coefvis
    15       USE planet, ONLY : aphelie, periheli, peri_day, obliquit, year_day
     15      USE astronomy
    1616      USE vdif_mod, ONLY : lmixmin, emin_turb
    1717      IMPLICIT NONE
    … …  
    197197      coslon(:)=cos(long(:))
    198198
    199       pi=2.*asin(1.)
    200199      prad=rad
    201200      pg=g

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

    r4176 r4190  
    11      SUBROUTINE orbite(pls,pdist_sol,pdecli)
     2      USE astronomy
    23      IMPLICIT NONE
    34
    … …  
    3233c   -------------
    3334
    34 #include "comorbit.h"
    35 
    3635c arguments:
    3736c ----------

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

    r4189 r4190  
    33      USE vdif_mod, ONLY : lmixmin, emin_turb
    44      USE planet, ONLY : coefir, coefvis
    5       USE planet, ONLY : aphelie, periheli, obliquit, peri_day, year_day
     5      USE astronomy
    66      IMPLICIT NONE
    77c-----------------------------------------------------------------------
    … …  
    2020      character str1*1
    2121      INTEGER ig,ierr
    22       real zz,z1,z2,pi
     22      real zz,z1,z2
    2323
    2424      REAL I_mer,I_ter,z0_mer,z0_ter
    … …  
    2929c-----------------------------------------------------------------------
    3030
    31       pi=2.*asin(1.)
    3231      year_day=360.
    3332      periheli=173.

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

    r4188 r4190  
    1212      USE phys_const
    1313      USE planet
     14      USE astronomy
    1415      USE vdif_mod, ONLY : vdif
    15 c
     16c     
    1617      IMPLICIT NONE
    1718c=======================================================================
Note: See TracChangeset for help on using the changeset viewer.