- Timestamp:
- May 4, 2017, 9:29:58 AM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 93786a1
- Parents:
- 5888298
- Location:
- src
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
src/getfields.f90
r8a65cb0 rd1a8707 138 138 40 indmin=indj 139 139 140 if (WETBKDEP) then 141 call writeprecip(itime,memind(1)) 142 endif 143 140 144 else 141 145 … … 169 173 60 indmin=indj 170 174 175 if (WETBKDEP) then 176 call writeprecip(itime,memind(1)) 177 endif 178 171 179 endif 172 180 -
src/makefile
r92a74b2 rd1a8707 144 144 advance.o initialize.o \ 145 145 writeheader.o writeheader_txt.o \ 146 writeprecip.o \ 146 147 writeheader_surf.o assignland.o\ 147 148 part0.o gethourlyOH.o\ … … 432 433 wetdepokernel_nest.o: com_mod.o par_mod.o unc_mod.o 433 434 writeheader.o: com_mod.o outg_mod.o par_mod.o point_mod.o 435 writeprecip.o: com_mod.o par_mod.o point_mod.o 434 436 writeheader_nest.o: com_mod.o outg_mod.o par_mod.o point_mod.o 435 437 writeheader_nest_surf.o: com_mod.o outg_mod.o par_mod.o point_mod.o -
src/par_mod.f90
rdf4a68e rd1a8707 252 252 integer,parameter :: unitlsm=1, unitsurfdata=1, unitland=1, unitwesely=1 253 253 integer,parameter :: unitOH=1 254 integer,parameter :: unitdates=94, unitheader=90,unitheader_txt=100, unitshortpart=95 254 integer,parameter :: unitdates=94, unitheader=90,unitheader_txt=100, unitshortpart=95, unitprecip=101 255 255 integer,parameter :: unitboundcond=89 256 256 integer,parameter :: unittmp=101 -
src/timemanager.f90
r5f53d0e rd1a8707 148 148 149 149 if (.not.usekernel) write(*,*) 'Not using the kernel' 150 if (turboff) write(*,*) 'Turbulence switched off' 151 150 152 write(*,46) float(itime)/3600,itime,numpart 151 153
Note: See TracChangeset
for help on using the changeset viewer.