Changeset 23547f3 in flexpart.git
- Timestamp:
- Nov 14, 2019, 4:07:32 PM (4 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
- Children:
- 577bd04
- Parents:
- f612b17
- Location:
- src
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
src/cbl.f90
r92fab65 r23547f3 109 109 dradw2=0.5*w2**(-0.5)*dw2 110 110 !costluar4=0.66667 ! costante da LHH 111 fluarw=costluar4*(cuberoot(skew)) 111 fluarw=costluar4*(cuberoot(skew)) !skew**(1./3.) 112 112 fluarw2=fluarw*fluarw 113 113 … … 187 187 pa=(usurad2p*(1./sigmawa))*(exp(-(0.5*((deltawa/sigmawa)**2.)))) 188 188 pb=(usurad2p*(1./sigmawb))*(exp(-(0.5*((deltawb/sigmawb)**2.)))) 189 189 190 190 ptot=dens*aluarw*pa+dens*bluarw*pb 191 191 -
src/cmapf_mod.f90
r92fab65 r23547f3 232 232 !efact = exp(ymerc) 233 233 !cgszll = 2. * strcmp(7) * exp (strcmp(1) * ymerc) 234 !c 234 !c / (efact + 1./efact) 235 235 endif 236 236 cgszll = strcmp(7) * cos(radpdg * xlat) * exp(strcmp(1) *ymerc) -
src/netcdf_output_mod.f90
r92fab65 r23547f3 180 180 call nf90_err(nf90_put_att(ncid, nf90_global, 'dyout', dyout)) 181 181 endif 182 ! 182 ! vertical levels stored in grid structure 183 183 184 184 ! COMMAND file settings -
src/re_initialize_particle.f90
r92fab65 r23547f3 72 72 73 73 74 if ((sign(1.,wp)*timedir).gt.0) then !updraft 74 if ((sign(1.,wp)*timedir).gt.0) then !updraft 75 75 100 wp=(dcas1*sigmawa+wa) 76 76 if (wp.lt.0) then … … 80 80 end if 81 81 wp=wp*timedir 82 else if ((sign(1.,wp)*timedir).lt.0) then !downdraft 82 else if ((sign(1.,wp)*timedir).lt.0) then !downdraft 83 83 101 wp=(dcas1*sigmawb-wb) 84 84 if (wp.gt.0) then -
src/readlanduse.f90
r92fab65 r23547f3 30 30 ! LANDUSE CATEGORIES: * 31 31 ! * 32 ! 1 33 ! 2 Agricultural land*34 ! 3 Range land*35 ! 4 Deciduous forest*36 ! 5 Coniferous forest*37 ! 6 38 ! 7 39 ! 8 40 ! 9 nonforested wetland*41 ! 10 mixed agricultural and range land*42 ! 11 32 ! 1 Urban land * 33 ! 2 Agricultural land * 34 ! 3 Range land * 35 ! 4 Deciduous forest * 36 ! 5 Coniferous forest * 37 ! 6 Mixed forest including wetland * 38 ! 7 water, both salt and fresh * 39 ! 8 barren land mostly desert * 40 ! 9 nonforested wetland * 41 ! 10 mixed agricultural and range land * 42 ! 11 rocky open areas with low growing shrubs * 43 43 ! 12 ice * 44 44 ! 13 rainforest *
Note: See TracChangeset
for help on using the changeset viewer.