Changeset ff050cd in flexpart.git for src_parallel/com_mod.f90
- Timestamp:
- Aug 15, 2013, 3:23:48 PM (11 years ago)
- Branches:
- flexpart91_hasod
- Children:
- 31113de
- Parents:
- 7c1fd44
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src_parallel/com_mod.f90
r3eed2e6 rff050cd 108 108 ! lagespectra 1 if age spectra calculation switched on, 2 if not 109 109 110 logical :: lncdfout111 ! switch for netcdf grid output, set to true if IOUT .gt. 10 in COMMAND (file/namelist)110 integer :: lnetcdfout 111 ! lnetcdfout 1 for netcdf grid output, 0 if not. Set in COMMAND (namelist input) 112 112 113 113 integer :: nageclass,lage(maxageclass) … … 120 120 121 121 ! gdomainfill .T., if domain-filling is global, .F. if not 122 123 122 124 123 … … 138 137 !integer*2 kindz(maxpoint) 139 138 integer :: specnum(maxspec) 140 !real xmass(maxpoint,maxspec)141 139 real :: decay(maxspec) 142 140 real :: weta(maxspec),wetb(maxspec) … … 242 240 243 241 integer :: numbwf,wftime(maxwf),lwindinterv 244 character(len=255) :: wfname(maxwf) ,wfspec(maxwf)242 character(len=255) :: wfname(maxwf) 245 243 246 244 ! lwindinterv [s] Interval between wind fields currently in memory … … 248 246 ! wftime(maxwf) [s] times relative to beginning time of wind fields 249 247 ! wfname(maxwf) file names of wind fields 250 ! wfspec(maxwf) specifications of wind field file, e.g. if on hard251 ! disc or on tape252 248 253 249 integer :: memtime(2),memind(2) … … 412 408 413 409 character(len=255) :: wfnamen(maxnests,maxwf) 414 character(len=18) :: wfspecn(maxnests,maxwf)415 410 416 411 ! wfnamen nested wind field names 417 ! wfspecn specifications of wind field file, e.g. if on hard418 ! disc or on tape419 412 420 413
Note: See TracChangeset
for help on using the changeset viewer.