- Timestamp:
- Mar 2, 2015, 10:56:20 AM (9 years ago)
- Branches:
- master, 10.4.1_pesei, FPv9.3.1, FPv9.3.1b_testing, FPv9.3.2, GFS_025, bugfixes+enhancements, dev, fp9.3.1-20161214-nc4, grib2nc4_repair, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 1a08571
- Parents:
- 52aabab
- Location:
- src
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
src/FLEXPART.f90
r414a5e5 rb7ae015 62 62 ! FLEXPART version string 63 63 ! flexversion='Version 9.2 beta (2014-07-01)' 64 flexversion='Version 9.2.0.1 (2015-01-27)' 64 !flexversion='Version 9.2.0.1 (2015-01-27)' 65 flexversion='Version 9.2.0.2 (2015-03-01)' 65 66 ! default inlide options 66 67 inline_options='none' … … 113 114 endif 114 115 print*, 'verbosity level=', verbosity !inline_options(index_v+1:index_v+1) 115 116 116 endif 117 117 !iif (trim(inline_options).eq.'-v2') then … … 121 121 122 122 if (index(inline_options,'i').gt.0) then 123 !if (trim(inline_options).eq.'-i') then124 123 index_v=index(inline_options,'i') 125 print*, 'Info mode: provide run specific information andstop'124 print*, 'Info mode: provide compile and run specific information, then stop' 126 125 verbosity=1 127 126 info_flag=1 128 !if (trim(inline_options).eq.'-i2') then129 127 if (inline_options(index_v+1:index_v+1).eq.'2') then 130 print*, 'Including input files'131 ! verbosity=1132 128 info_flag=2 133 129 endif 134 130 endif 135 !if (trim(inline_options).eq.'-i2') then136 ! print*, 'Info mode: provide more detailed run specific information and stop'137 ! verbosity=1138 ! info_flag=2139 !endif140 131 if (index(inline_options,'t').gt.0) then 141 132 time_flag=1 142 print*, 'timing execution : not implemented'133 print*, 'timing execution activated' 143 134 !stop 144 135 endif 145 136 if (index(inline_options,'d').gt.0) then 146 137 debug_flag=1 147 print*, 'debug : not implemented'138 print*, 'debug messages activated' 148 139 print*, 'debug_flag=', debug_flag 149 ! stop140 !these messages give additional info on top on verbose mode 150 141 endif 151 142 endif … … 186 177 187 178 if (verbosity.gt.0) then 188 write(*,*) ' call readcommand'179 write(*,*) 'FLEXPART> call readcommand' 189 180 endif 190 181 call readcommand … … 202 193 !******************************** 203 194 if (verbosity.gt.0) then 204 write(*,*) ' call readageclasses'195 write(*,*) 'FLEXPART> call readageclasses' 205 196 endif 206 197 call readageclasses … … 215 206 216 207 if (verbosity.gt.0) then 217 write(*,*) ' call readavailable'208 write(*,*) 'FLEXPART> call readavailable' 218 209 endif 219 210 call readavailable … … 234 225 235 226 if (verbosity.gt.0) then 236 write(*,*) ' call gridcheck_nests'227 write(*,*) 'FLEXPART> call gridcheck_nests' 237 228 endif 238 229 call gridcheck_nests … … 296 287 297 288 if (verbosity.gt.0) then 298 print*,' call readdepo'289 print*,'FLEXPART> call readdepo' 299 290 endif 300 291 call readdepo … … 305 296 call coordtrafo 306 297 if (verbosity.gt.0) then 307 print*,' call coordtrafo'298 print*,'FLEXPART> call coordtrafo' 308 299 endif 309 300 … … 312 303 313 304 if (verbosity.gt.0) then 314 print*,' Initialize all particles to non-existent'305 print*,'FLEXPART> Initialize all particles to non-existent' 315 306 endif 316 307 do j=1,maxpart … … 323 314 if (ipin.eq.1) then 324 315 if (verbosity.gt.0) then 325 print*,' call readpartpositions'316 print*,'FLEXPART> call readpartpositions' 326 317 endif 327 318 call readpartpositions 328 319 else 329 320 if (verbosity.gt.0) then 330 print*,' set numpart=0, numparticlecount=0'321 print*,'FLEXPART> set numpart=0, numparticlecount=0' 331 322 endif 332 323 numpart=0 … … 339 330 340 331 if (verbosity.gt.0) then 341 print*,' call outgrid_init'332 print*,'FLEXPART> call outgrid_init' 342 333 endif 343 334 call outgrid_init … … 349 340 if (OHREA.eqv..TRUE.) then 350 341 if (verbosity.gt.0) then 351 print*,' call readOHfield'342 print*,'FLEXPART> call readOHfield' 352 343 endif 353 344 call readOHfield … … 359 350 360 351 if (verbosity.gt.0) then 361 print*,' call writeheader'352 print*,'FLEXPART> call variuos writeheader routines' 362 353 endif 363 354 … … 373 364 374 365 if (verbosity.gt.0) then 375 print*,' call openreceptors'366 print*,'FLEXPART> call openreceptors' 376 367 endif 377 368 call openreceptors … … 382 373 383 374 if (verbosity.gt.0) then 384 print*,' discretize release times'375 print*,'FLEXPART> discretize release times' 385 376 endif 386 377 do i=1,numpoint … … 393 384 394 385 if (verbosity.gt.0) then 395 print*,' Initialize cloud-base mass fluxes for the convection scheme'386 print*,'FLEXPART> Initialize cloud-base mass fluxes for the convection scheme' 396 387 endif 397 388 … … 417 408 endif 418 409 if (info_flag.eq.2) then 419 print*, ' info only mode (stop before call timemanager)'410 print*, 'FLEXPART> info only mode (stop before call timemanager)' 420 411 stop 421 412 endif 422 413 if (verbosity.gt.0) then 423 print*,' call timemanager'414 print*,'FLEXPART> call timemanager' 424 415 endif 425 416 -
src/gridcheck.f90
r6470a47 rb7ae015 286 286 yaux1=yaux1in 287 287 yaux2=yaux2in 288 if (verbosity.gt.1) then 289 print*, 'longitudeOfFirstGridPointInDegrees', xaux1in 290 print*, 'longitudeOfLastGridPointInDegrees ', xaux2in 291 print*, 'latitudeOfLastGridPointInDegrees ', yaux1in 292 print*, 'latitudeOfFirstGridPointInDegrees ', yaux2in 293 294 endif 295 288 296 if (xaux1.gt.180.) xaux1=xaux1-360.0 289 297 if (xaux2.gt.180.) xaux2=xaux2-360.0 … … 445 453 write(*,'(a,2i7)') ' Vertical levels in ECMWF data: ', & 446 454 nuvz+1,nwz 447 write(*,*)448 write(*,'(a)') ' gridcheck>Mother domain:'449 write(*,'(a,f10.5,a,f10.5,a,f10.5)') ' gridcheck>Longitude range: ', &455 !write(*,*) 456 write(*,'(a)') ' Mother domain:' 457 write(*,'(a,f10.5,a,f10.5,a,f10.5)') ' Longitude range: ', & 450 458 xlon0,' to ',xlon0+(nx-1)*dx,' Grid distance: ',dx 451 write(*,'(a,f10.5,a,f10.5,a,f10.5)') ' gridcheck>Latitude range : ', &459 write(*,'(a,f10.5,a,f10.5,a,f10.5)') ' Latitude range : ', & 452 460 ylat0,' to ',ylat0+(ny-1)*dy,' Grid distance: ',dy 453 461 write(*,*) -
src/makefile
rda396a2 rb7ae015 6 6 LIBPATH1 = /xnilu_wrk/flex_wrk/bin64/grib_api/lib 7 7 LIBPATH2 = /usr/lib/x86_64-linux-gnu/ 8 FFLAGS = -O2 -m64 -mcmodel=medium -fconvert=little-endian -frecord-marker=4 -I$(INCPATH) 8 #FFLAGS = -O2 -m64 -mcmodel=medium -fconvert=little-endian -frecord-marker=4 -I$(INCPATH) 9 FFLAGS = -m64 -mcmodel=medium -fconvert=little-endian -frecord-marker=4 -I$(INCPATH) 9 10 #FFLAGS = -fbounds-check -m64 -mcmodel=medium -fconvert=little-endian -frecord-marker=4 -I$(INCPATH) 10 11 LDFLAGS = $(FFLAGS) -L$(LIBPATH2) -L$(LIBPATH1) -lgrib_api_f90 -lgrib_api -lm -ljasper -
src/readpaths.f90
r18c1336 rb7ae015 65 65 66 66 if (verbosity.gt.0) then 67 print*, 'path read', i, '=', path(i)67 print*, 'path read', i, '=', trim(path(i)) 68 68 end if 69 69 … … 72 72 73 73 do i=1,numpath 74 75 74 string_test = path(i) 76 75 character_test = string_test(length(i):length(i)) 77 !print*, 'character_test, string_test ', character_test, string_test 78 if ((character_test .NE. '/') .AND. (i .LT. 4)) then 76 ! print*, 'character_test, string_test ', character_test, string_test 77 ! include nested fields 78 if ((character_test .NE. '/') .AND. ((i .LT. 4) .OR. (i .EQ. 5) )) then 79 if (verbosity.gt.0) then 79 80 print*, 'readpaths> WARNING: path not ending in /' 80 81 print*, path(i) 82 endif 81 83 path(i) = string_test(1:length(i)) // '/' 82 84 length(i)=length(i)+1 85 if (verbosity.gt.0) then 83 86 print*, 'fix: padded with /' 84 87 print*, path(i) 85 88 print*, 'length(i) increased 1', length(i) 89 endif 86 90 endif 87 88 91 end do 89 92 … … 107 110 30 numbnests=i-1 108 111 109 if (verbosity.gt.0) then110 do i=1,numpath111 print*, 'path tested', i, '=', path(i)112 end do113 end if112 !if (verbosity.gt.0) then 113 ! do i=1,numpath 114 ! print*, 'path tested', i, '=', path(i) 115 ! end do 116 !end if 114 117 115 118 close(unitpath) -
src/readreleases.f90
r242571d rb7ae015 259 259 if (stat.ne.0) write(*,*)'ERROR: could not allocate xmasssave' 260 260 261 write (*,*) 'readreleases> Releasepoints : ', numpoint 261 if (verbosity.gt.0) then 262 write (*,*) 'readreleases> Releasepoints : ', numpoint 263 endif 262 264 263 265 do i=1,numpoint … … 367 369 WETDEP=.true. 368 370 write (*,*) 'Below-cloud scavenging: ON' 371 if (verbosity.gt.0) then 369 372 write (*,*) 'Below-cloud scavenging coefficients: ',weta(i),i 373 endif 370 374 else 375 if (verbosity.gt.0) then 371 376 write (*,*) 'Below-cloud scavenging: OFF' 377 endif 372 378 endif 373 379 … … 376 382 WETDEP=.true. 377 383 write (*,*) 'In-cloud scavenging: ON' 384 if (verbosity.gt.0) then 378 385 write (*,*) 'In-cloud scavenging coefficients: ',weta_in(i),wetb_in(i), wetc_in(i), wetd_in(i),i 379 else 380 write (*,*) 'In-cloud scavenging: OFF' 386 endif 387 else 388 if (verbosity.gt.0) then 389 write (*,*) 'In-cloud scavenging: OFF' 390 endif 381 391 endif 382 392 -
src/timemanager.f90
rb4d29ce rb7ae015 140 140 141 141 do itime=0,ideltas,lsynctime 142 if (verbosity.gt.0) then 143 write (*,*) 'timemanager> itime=', itime 144 endif 142 145 143 146 … … 197 200 !****************** 198 201 199 if (verbosity.gt.0) then200 write (*,*) 'timemanager> Release particles'201 endif202 !if (verbosity.gt.0) then 203 ! write (*,*) 'timemanager> Release particles' 204 !endif 202 205 203 206 if (mdomainfill.ge.1) then … … 215 218 else 216 219 if (verbosity.gt.0) then 217 print*,' call releaseparticles'220 print*,'timemanager> call releaseparticles' 218 221 endif 219 222 call releaseparticles(itime)
Note: See TracChangeset
for help on using the changeset viewer.