Changeset 3c1da52 in flexpart.git for src/com_mod.f90
- Timestamp:
- Jul 15, 2015, 9:45:31 AM (9 years ago)
- Branches:
- svn-petra
- Children:
- c07b09e
- Parents:
- 31674b5
- git-author:
- Ignacio Pisso <Ignacio.Pisso@…> (07/15/15 09:23:56)
- git-committer:
- Ignacio Pisso <Ignacio.Pisso@…> (07/15/15 09:45:31)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/com_mod.f90
r31674b5 r3c1da52 32 32 ! Modifications: 15 August 2013 IP, 33 33 ! 2/2015 PS, add incremental deposition switch 34 ! 2/2015 PS, change variables for cloud diagnostics 34 35 ! * 35 36 !******************************************************************************* … … 365 366 real :: qvh(0:nxmax-1,0:nymax-1,nuvzmax,2) 366 367 real :: pplev(0:nxmax-1,0:nymax-1,nuvzmax,2) 367 integer(kind=1) :: clouds(0:nxmax-1,0:nymax-1,nzmax,2)368 integer :: cloudsh(0:nxmax-1,0:nymax-1,2)369 370 371 368 ! uu,vv,ww [m/2] wind components in x,y and z direction 372 369 ! uupol,vvpol [m/s] wind components in polar stereographic projection … … 377 374 ! drhodz [kg/m2] vertical air density gradient 378 375 ! tth,qvh tth,qvh on original eta levels 379 ! clouds: no cloud, no precipitation 0380 ! cloud, no precipitation 1381 ! rainout conv/lsp dominated 2/3382 ! washout conv/lsp dominated 4/5383 376 384 377 ! pplev for the GFS version … … 406 399 real :: oli(0:nxmax-1,0:nymax-1,1,2) 407 400 real :: diffk(0:nxmax-1,0:nymax-1,1,2) 401 integer, dimension (0:nxmax-1,0:nymax-1,2) :: icloudbot, icloudthck 408 402 409 403 ! ps surface pressure … … 426 420 ! oli [m] inverse Obukhov length (1/L) 427 421 ! diffk [m2/s] diffusion coefficient at reference height 422 ! icloudbot (m) cloud bottom height 423 ! icloudthck (m) cloud thickness 428 424 429 425 … … 484 480 real :: qvn(0:nxmaxn-1,0:nymaxn-1,nzmax,2,maxnests) 485 481 real :: pvn(0:nxmaxn-1,0:nymaxn-1,nzmax,2,maxnests) 486 integer(kind=1) :: cloudsn(0:nxmaxn-1,0:nymaxn-1,0:nzmax,2,maxnests)487 integer :: cloudsnh(0:nxmaxn-1,0:nymaxn-1,2,maxnests)488 482 real :: rhon(0:nxmaxn-1,0:nymaxn-1,nzmax,2,maxnests) 489 483 real :: drhodzn(0:nxmaxn-1,0:nymaxn-1,nzmax,2,maxnests) … … 514 508 real :: diffkn(0:nxmaxn-1,0:nymaxn-1,1,2,maxnests) 515 509 real :: vdepn(0:nxmaxn-1,0:nymaxn-1,maxspec,2,maxnests) 510 integer, dimension (0:nxmax-1,0:nymax-1,2,maxnests) :: icloudbotn, icloudthckn 516 511 517 512
Note: See TracChangeset
for help on using the changeset viewer.