Changeset 4183


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

simple_physics : comcstfi.h => MODULE phys_const.F90

Location:
dynamico_lmdz/simple_physics/phyparam
Files:
1 deleted
9 edited
1 moved

Legend:

Unmodified
Added
Removed

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

    r4176 r4183  
    33     $               pcdzv,pcdzh)
    44      USE constlim
     5      USE phys_const
    56      IMPLICIT NONE
    67
    … …  
    1617
    1718#include "dimensions.h"
    18 #include "comcstfi.h"
    1919
    2020c   Arguments:

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

    r4176 r4183  
    44     $                   pdufi,pdvfi,pdhfi,
    55     $                   pduadj,pdvadj,pdhadj)
     6      USE phys_const
    67      IMPLICIT NONE
    78
    … …  
    1819
    1920#include "dimensions.h"
    20 #include "comcstfi.h"
    2121
    2222c   arguments:

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

    r4176 r4183  
    22      USE comgeomfi, ONLY : ngridmax,nlayermx
    33      USE constlim
     4      USE phys_const
    45      IMPLICIT NONE
    56c=======================================================================
    … …  
    1112c   Declarations:
    1213c   -------------
    13 
    14 #include "comcstfi.h"
    15 ! include "comvert.h"
     14     
    1615
    1716c   local:

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

    r4176 r4183  
    1111      use comsaison
    1212      USE geometry_mod, ONLY : longitude,latitude,cell_area
     13      USE phys_const
    1314
    1415      IMPLICIT NONE
    … …  
    4950 
    5051#include "planete.h"
    51 #include "comcstfi.h"
    5252#include "callkeys.h"
    5353#include "surface.h"

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

    r4176 r4183  
    33     $             pfluxir,pdtlw,
    44     $             lwrite)
    5 
     5      USE phys_const
    66      IMPLICIT NONE
    77c=======================================================================
    … …  
    3333c   declarations:
    3434c   -------------
    35 
    36 #include "comcstfi.h"
    3735
    3836c   arguments:

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

    r4176 r4183  
    1010      USE dimphy
    1111      USE comgeomfi
     12      USE phys_const
    1213c
    1314      IMPLICIT NONE
    … …  
    7576#include "description.h"
    7677#include "callkeys.h"
    77 #include "comcstfi.h"
    7878#include "planete.h"
    7979#include "surface.h"

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

    r4176 r4183  
    33      USE comsaison
    44      USE comgeomfi
     5      USE phys_const
    56      IMPLICIT NONE
    67
    … …  
    1011#include "surfdat.h"
    1112#include "callkeys.h"
    12 #include "comcstfi.h"
    1313#include "planete.h"
    1414

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

    r4176 r4183  
    44     $              fsrfvis,dtsw,
    55     $              lwrite)
     6      USE phys_const
    67      IMPLICIT NONE
    78c=======================================================================
    … …  
    1516c   -------------
    1617c
    17 #include "comcstfi.h"
    1818c
    1919c   arguments:

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

    r4176 r4183  
    66     $                pdudif,pdvdif,pdhdif,pdtsrf,pq2,pq2l,
    77     $                lwrite)
     8      USE phys_const
    89      IMPLICIT NONE
    910
    … …  
    2930c   -------------
    3031
    31 #include "comcstfi.h"
    32 c  des include de la geometrie dynamique pour sorties graphiques
    33 ! #include "paramet.h"
    34 ! #include "comvert.h"
    35 ! #include "comgeom.h"
    3632#include "description.h"
    3733c

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

    r4178 r4183  
    1 c-----------------------------------------------------------------------
    2 c INCLUDE comcstfi.h
     1MODULE phys_const
     2 
     3  REAL pi,rad,g,r,cpp,rcp,dtphys,unjours,mugaz,omeg
    34
    4       COMMON/comcstfi/
    5      * pi,rad,g,r,cpp,rcp,dtphys,unjours,mugaz,omeg
    6 
    7       REAL pi,rad,g,r,cpp,rcp,dtphys,unjours,mugaz,omeg
    8 
    9 c-----------------------------------------------------------------------
     5END MODULE phys_const
Note: See TracChangeset for help on using the changeset viewer.