Changeset 4184 for dynamico_lmdz


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

simple_physics : planete.h => MODULE planet.F90

Location:
dynamico_lmdz/simple_physics/phyparam
Files:
7 edited
1 moved

Legend:

Unmodified
Added
Removed

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

    r4183 r4184  
    1212      USE geometry_mod, ONLY : longitude,latitude,cell_area
    1313      USE phys_const
     14      USE planet
    1415
    1516      IMPLICIT NONE
    … …  
    4950
    5051 
    51 #include "planete.h"
    5252#include "callkeys.h"
    5353#include "surface.h"

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

    r4176 r4184  
    11      SUBROUTINE paramdef(ngrid,rnatur,albedo,inertie,emissiv,z0)
    22      USE  comgeomfi, ONLY : lati,sinlat,coslat
     3      USE planet
    34      IMPLICIT NONE
    45c-----------------------------------------------------------------------
    … …  
    67c   -------------
    78
    8 #include "planete.h"
    99
    1010      INTEGER ngrid

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

    r4183 r4184  
    1111      USE comgeomfi
    1212      USE phys_const
     13      USE planet
    1314c
    1415      IMPLICIT NONE
    … …  
    7677#include "description.h"
    7778#include "callkeys.h"
    78 #include "planete.h"
    7979#include "surface.h"
    8080

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

    r4183 r4184  
    44      USE comgeomfi
    55      USE phys_const
     6      USE planet
    67      IMPLICIT NONE
    78
    … …  
    1112#include "surfdat.h"
    1213#include "callkeys.h"
    13 #include "planete.h"
    1414
    1515c    Arguments :

  • 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

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

    r4176 r4184  
    11      SUBROUTINE vdif_cd( ngrid,pz0,pg,pz,pu,pv,pts,ph,pcdv,pcdh)
     2      USE planet, ONLY : karman
    23      IMPLICIT NONE
    34c=======================================================================
    … …  
    5051      REAL zu2,z1,zri,zcd0,zz
    5152
    52       REAL karman,b,c,d,c2b,c3bc,c3b,z0,umin2
     53      REAL b,c,d,c2b,c3bc,c3b,z0,umin2
    5354      LOGICAL firstcal
    54       DATA karman,b,c,d,umin2/.4,5.,5.,5.,1.e-12/
     55      DATA b,c,d,umin2/5.,5.,5.,1.e-12/
    5556      DATA firstcal/.true./
    56       SAVE b,c,d,karman,c2b,c3bc,c3b,firstcal,umin2
     57      SAVE b,c,d,c2b,c3bc,c3b,firstcal,umin2
    5758
    5859c-----------------------------------------------------------------------

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

    r4176 r4184  
    11      SUBROUTINE vdif_k(ngrid,nlay,
    22     s   ptimestep,pg,pzlev,pzlay,pz0,pu,pv,ph,pcdv,pkv,pkh)
    3 
     3      USE planet
    44      IMPLICIT NONE
    5 #include "planete.h"
    65
    76      INTEGER ngrid,nlay
    … …  
    1615      INTEGER ig,il
    1716      REAL zdu,zdv,zri,zdvodz2,zdz,z1,lmix
    18 
    19       REAL karman
    20       SAVE karman
    21       DATA lmixmin,emin_turb,karman/100.,1.e-8,.4/
    22 
    2317
    2418      print*,'LMIXMIN',lmixmin

  • 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.