Changeset fd86dea in flexpart.git
- Timestamp:
- Apr 28, 2017, 8:22:15 AM (7 years ago)
- Branches:
- FPv9.3.2, grib2nc4_repair
- Children:
- e4c6b7c
- Parents:
- 1a933f2
- Location:
- flexpart_code
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
flexpart_code/FLEXPART.F90
r57a9cce rfd86dea 79 79 !******************************************************* 80 80 #if defined CTBTO 81 print*,'Welcome to FLEXPART Version 9.3. 1fCTBTO'81 print*,'Welcome to FLEXPART Version 9.3.2 CTBTO' 82 82 #else 83 print*,'Welcome to FLEXPART Version 9.3. 1f'83 print*,'Welcome to FLEXPART Version 9.3.2' 84 84 #endif 85 85 -
flexpart_code/GRIB2FLEXPART.F90
r57a9cce rfd86dea 59 59 !******************************************************* 60 60 #if defined CTBTO 61 print*,'Welcome to GRIB2FLEXPART Version 9.3. 1fCTBTO'61 print*,'Welcome to GRIB2FLEXPART Version 9.3.2 CTBTO' 62 62 #else 63 print*,'Welcome to GRIB2FLEXPART Version 9.3. 1f'63 print*,'Welcome to GRIB2FLEXPART Version 9.3.2' 64 64 #endif 65 65 -
flexpart_code/fpmetbinary_mod.F90
rb6b9db0 rfd86dea 53 53 ! Users may want to change these IO Unit values if they conflict with other parts 54 54 ! of code 55 ! April 2017 (DJM) - These are only needed if you use the fpio_rawbin 56 ! routines for raw binary output. The default now is NC4, but I've kept 57 ! the old code for the time being. 55 58 INTEGER, PARAMETER :: IOUNIT_DUMP = 33, IOUNIT_LOAD = 34, & 56 59 IOUNIT_TEXTOUT = 35 … … 64 67 65 68 66 ! WARNING - for now, for NC4 compatability, make sure that the PREPROC_FMT_STR_DIM 67 ! defined above is exactly the length of the string PLUS the null character added 69 ! April 2017 (DJM) 70 ! WARNING - for now, for NC4 compatability, make sure that the 71 ! PREPROC_FMT_STR_DIM 72 ! defined above is exactly the length of the string PLUS the null 73 ! character added 68 74 ! I've had a hell of a time making it all compatible with NC4 (DJM) 69 CHARACTER(LEN=PREPROC_FMT_STR_DIM), PARAMETER :: PREPROC_FORMAT_VERSION_STR = 'FP_p-9.3.2'//char(0) 75 CHARACTER(LEN=PREPROC_FMT_STR_DIM), PARAMETER :: & 76 & PREPROC_FORMAT_VERSION_STR = 'FP_p-9.3.2'//char(0) 70 77 71 78 PRIVATE IOUNIT_DUMP, IOUNIT_LOAD, IOUNIT_TEXTOUT, fpio, & … … 76 83 77 84 !***************************************************************************** 85 ! * 86 ! April 2017 (DJM) - the comment below suggesting that variables need * 87 ! to be read in exactly the same order that they are written applies * 88 ! only to raw binary format, not NC4. * 78 89 ! * 79 90 ! Subroutines fpmetbinary_dump() and fpmetbinary_load() provide the * … … 2382 2393 & temp_nymaxn) 2383 2394 call handle_nf90_err(ncret) 2384 PRINT *, 'temp_nymaxn: ', temp_nymaxn2395 ! PRINT *, 'temp_nymaxn: ', temp_nymaxn 2385 2396 2386 2397 ! Note that maxspec_dimid and numclass_dimid were checked above
Note: See TracChangeset
for help on using the changeset viewer.