Changeset 4184 for dynamico_lmdz/simple_physics
- Timestamp:
- Dec 19, 2019, 4:51:01 PM (5 years ago)
- Location:
- dynamico_lmdz/simple_physics/phyparam
- Files:
-
- 7 edited
- 1 moved
-
param/iniphyparam.F (modified) (2 diffs)
-
param/paramdef.F (modified) (2 diffs)
-
param/phyparam.F (modified) (2 diffs)
-
param/radia1d.F (modified) (2 diffs)
-
param/vdif.F (modified) (2 diffs)
-
param/vdif_cd.F (modified) (2 diffs)
-
param/vdif_k.F (modified) (2 diffs)
-
physics/planet.F90 (moved) (moved from dynamico_lmdz/simple_physics/phyparam/param/planete.h) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
dynamico_lmdz/simple_physics/phyparam/param/iniphyparam.F
r4183 r4184 12 12 USE geometry_mod, ONLY : longitude,latitude,cell_area 13 13 USE phys_const 14 USE planet 14 15 15 16 IMPLICIT NONE … … 49 50 50 51 51 #include "planete.h"52 52 #include "callkeys.h" 53 53 #include "surface.h" -
dynamico_lmdz/simple_physics/phyparam/param/paramdef.F
r4176 r4184 1 1 SUBROUTINE paramdef(ngrid,rnatur,albedo,inertie,emissiv,z0) 2 2 USE comgeomfi, ONLY : lati,sinlat,coslat 3 USE planet 3 4 IMPLICIT NONE 4 5 c----------------------------------------------------------------------- … … 6 7 c ------------- 7 8 8 #include "planete.h"9 9 10 10 INTEGER ngrid -
dynamico_lmdz/simple_physics/phyparam/param/phyparam.F
r4183 r4184 11 11 USE comgeomfi 12 12 USE phys_const 13 USE planet 13 14 c 14 15 IMPLICIT NONE … … 76 77 #include "description.h" 77 78 #include "callkeys.h" 78 #include "planete.h"79 79 #include "surface.h" 80 80 -
dynamico_lmdz/simple_physics/phyparam/param/radia1d.F
r4183 r4184 4 4 USE comgeomfi 5 5 USE phys_const 6 USE planet 6 7 IMPLICIT NONE 7 8 … … 11 12 #include "surfdat.h" 12 13 #include "callkeys.h" 13 #include "planete.h"14 14 15 15 c Arguments : -
dynamico_lmdz/simple_physics/phyparam/param/vdif.F
r4183 r4184 7 7 $ lwrite) 8 8 USE phys_const 9 USE planet, ONLY : karman 9 10 IMPLICIT NONE 10 11 … … 67 68 68 69 EXTERNAL coefdifv 69 REAL, SAVE :: karman=0.470 70 INTEGER, SAVE :: icount=0 71 !$OMP THREADPRIVATE( karman,icount)71 !$OMP THREADPRIVATE(icount) 72 72 73 73 c -
dynamico_lmdz/simple_physics/phyparam/param/vdif_cd.F
r4176 r4184 1 1 SUBROUTINE vdif_cd( ngrid,pz0,pg,pz,pu,pv,pts,ph,pcdv,pcdh) 2 USE planet, ONLY : karman 2 3 IMPLICIT NONE 3 4 c======================================================================= … … 50 51 REAL zu2,z1,zri,zcd0,zz 51 52 52 REAL karman,b,c,d,c2b,c3bc,c3b,z0,umin253 REAL b,c,d,c2b,c3bc,c3b,z0,umin2 53 54 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/ 55 56 DATA firstcal/.true./ 56 SAVE b,c,d, karman,c2b,c3bc,c3b,firstcal,umin257 SAVE b,c,d,c2b,c3bc,c3b,firstcal,umin2 57 58 58 59 c----------------------------------------------------------------------- -
dynamico_lmdz/simple_physics/phyparam/param/vdif_k.F
r4176 r4184 1 1 SUBROUTINE vdif_k(ngrid,nlay, 2 2 s ptimestep,pg,pzlev,pzlay,pz0,pu,pv,ph,pcdv,pkv,pkh) 3 3 USE planet 4 4 IMPLICIT NONE 5 #include "planete.h"6 5 7 6 INTEGER ngrid,nlay … … 16 15 INTEGER ig,il 17 16 REAL zdu,zdv,zri,zdvodz2,zdz,z1,lmix 18 19 REAL karman20 SAVE karman21 DATA lmixmin,emin_turb,karman/100.,1.e-8,.4/22 23 17 24 18 print*,'LMIXMIN',lmixmin -
dynamico_lmdz/simple_physics/phyparam/physics/planet.F90
r4178 r4184 1 c----------------------------------------------------------------------- 2 c INCLUDE planet.h 1 MODULE planet 2 IMPLICIT NONE 3 SAVE 3 4 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 8 10 9 REAL aphelie,periheli,year_day,peri_day, 10 $ obliquit, 11 $ lmixmin,emin_turb, 12 $ coefvis,coefir 13 14 c----------------------------------------------------------------------- 11 END MODULE planet
Note: See TracChangeset
for help on using the changeset viewer.
