Maintenance is scheduled between 16:00 and 23:59 CEST (14:00 and 21:59 UTC) on Thursday 2021-10-28. The system may be unavailable at any time during this timeframe. Please plan accordingly.

Commit 23547f36 authored by Ignacio Pisso's avatar Ignacio Pisso
Browse files

remove tabs from files of the form src/*.f90

parent f612b175
...@@ -108,7 +108,7 @@ subroutine cbl(wp,zp,ust,wst,h,rhoa,rhograd,sigmaw,dsigmawdz,tlw,ptot,Q,phi,ath, ...@@ -108,7 +108,7 @@ subroutine cbl(wp,zp,ust,wst,h,rhoa,rhograd,sigmaw,dsigmawdz,tlw,ptot,Q,phi,ath,
radw2=w2**0.5 radw2=w2**0.5
dradw2=0.5*w2**(-0.5)*dw2 dradw2=0.5*w2**(-0.5)*dw2
!costluar4=0.66667 ! costante da LHH !costluar4=0.66667 ! costante da LHH
fluarw=costluar4*(cuberoot(skew)) !skew**(1./3.) fluarw=costluar4*(cuberoot(skew)) !skew**(1./3.)
fluarw2=fluarw*fluarw fluarw2=fluarw*fluarw
if (skew.ne.0) then if (skew.ne.0) then
...@@ -186,7 +186,7 @@ subroutine cbl(wp,zp,ust,wst,h,rhoa,rhograd,sigmaw,dsigmawdz,tlw,ptot,Q,phi,ath, ...@@ -186,7 +186,7 @@ subroutine cbl(wp,zp,ust,wst,h,rhoa,rhograd,sigmaw,dsigmawdz,tlw,ptot,Q,phi,ath,
pa=(usurad2p*(1./sigmawa))*(exp(-(0.5*((deltawa/sigmawa)**2.)))) pa=(usurad2p*(1./sigmawa))*(exp(-(0.5*((deltawa/sigmawa)**2.))))
pb=(usurad2p*(1./sigmawb))*(exp(-(0.5*((deltawb/sigmawb)**2.)))) pb=(usurad2p*(1./sigmawb))*(exp(-(0.5*((deltawb/sigmawb)**2.))))
ptot=dens*aluarw*pa+dens*bluarw*pb ptot=dens*aluarw*pa+dens*bluarw*pb
aperfa=deltawa*usurad2/sigmawa aperfa=deltawa*usurad2/sigmawa
......
...@@ -231,7 +231,7 @@ real function cgszll (strcmp, xlat,xlong) ...@@ -231,7 +231,7 @@ real function cgszll (strcmp, xlat,xlong)
ymerc = log((1. + slat) / (1. - slat))/2. ymerc = log((1. + slat) / (1. - slat))/2.
!efact = exp(ymerc) !efact = exp(ymerc)
!cgszll = 2. * strcmp(7) * exp (strcmp(1) * ymerc) !cgszll = 2. * strcmp(7) * exp (strcmp(1) * ymerc)
!c / (efact + 1./efact) !c / (efact + 1./efact)
endif endif
cgszll = strcmp(7) * cos(radpdg * xlat) * exp(strcmp(1) *ymerc) cgszll = strcmp(7) * cos(radpdg * xlat) * exp(strcmp(1) *ymerc)
return return
......
...@@ -179,7 +179,7 @@ subroutine writemetadata(ncid,lnest) ...@@ -179,7 +179,7 @@ subroutine writemetadata(ncid,lnest)
call nf90_err(nf90_put_att(ncid, nf90_global, 'dxout', dxout)) call nf90_err(nf90_put_att(ncid, nf90_global, 'dxout', dxout))
call nf90_err(nf90_put_att(ncid, nf90_global, 'dyout', dyout)) call nf90_err(nf90_put_att(ncid, nf90_global, 'dyout', dyout))
endif endif
! vertical levels stored in grid structure ! vertical levels stored in grid structure
! COMMAND file settings ! COMMAND file settings
call nf90_err(nf90_put_att(ncid, nf90_global, 'ldirect', ldirect)) call nf90_err(nf90_put_att(ncid, nf90_global, 'ldirect', ldirect))
......
...@@ -71,7 +71,7 @@ subroutine re_initialize_particle(zp,ust,wst,h,sigmaw,wp,nrand,ol) ...@@ -71,7 +71,7 @@ subroutine re_initialize_particle(zp,ust,wst,h,sigmaw,wp,nrand,ol)
if ((sign(1.,wp)*timedir).gt.0) then !updraft if ((sign(1.,wp)*timedir).gt.0) then !updraft
100 wp=(dcas1*sigmawa+wa) 100 wp=(dcas1*sigmawa+wa)
if (wp.lt.0) then if (wp.lt.0) then
nrand=nrand+1 nrand=nrand+1
...@@ -79,7 +79,7 @@ subroutine re_initialize_particle(zp,ust,wst,h,sigmaw,wp,nrand,ol) ...@@ -79,7 +79,7 @@ subroutine re_initialize_particle(zp,ust,wst,h,sigmaw,wp,nrand,ol)
goto 100 goto 100
end if end if
wp=wp*timedir wp=wp*timedir
else if ((sign(1.,wp)*timedir).lt.0) then !downdraft else if ((sign(1.,wp)*timedir).lt.0) then !downdraft
101 wp=(dcas1*sigmawb-wb) 101 wp=(dcas1*sigmawb-wb)
if (wp.gt.0) then if (wp.gt.0) then
nrand=nrand+1 nrand=nrand+1
......
...@@ -29,17 +29,17 @@ subroutine readlanduse ...@@ -29,17 +29,17 @@ subroutine readlanduse
! * ! *
! LANDUSE CATEGORIES: * ! LANDUSE CATEGORIES: *
! * ! *
! 1 Urban land * ! 1 Urban land *
! 2 Agricultural land * ! 2 Agricultural land *
! 3 Range land * ! 3 Range land *
! 4 Deciduous forest * ! 4 Deciduous forest *
! 5 Coniferous forest * ! 5 Coniferous forest *
! 6 Mixed forest including wetland * ! 6 Mixed forest including wetland *
! 7 water, both salt and fresh * ! 7 water, both salt and fresh *
! 8 barren land mostly desert * ! 8 barren land mostly desert *
! 9 nonforested wetland * ! 9 nonforested wetland *
! 10 mixed agricultural and range land * ! 10 mixed agricultural and range land *
! 11 rocky open areas with low growing shrubs * ! 11 rocky open areas with low growing shrubs *
! 12 ice * ! 12 ice *
! 13 rainforest * ! 13 rainforest *
! * ! *
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment