Changeset 1830 for branches/CMIP5_IPSL/NEMO/OFF_SRC
- Timestamp:
- 2010-04-12T15:03:51+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CMIP5_IPSL/NEMO/OFF_SRC/IOM/iom.F90
r1749 r1830 986 986 !! 987 987 !!---------------------------------------------------------------------- 988 CHARACTER(len=6),DIMENSION( 8) :: clsuff ! suffix name988 CHARACTER(len=6),DIMENSION( 9) :: clsuff ! suffix name 989 989 CHARACTER(len=1),DIMENSION( 3) :: clgrd ! suffix name 990 990 CHARACTER(len=50) :: clname ! file name … … 1013 1013 1014 1014 ! output file names (attribut: name) 1015 clsuff(:) = (/ 'grid_T', 'grid_U', 'grid_V', 'grid_W', 'icemod', 'ptrc_T', 'diad_T', ' scalar' /)1015 clsuff(:) = (/ 'grid_T', 'grid_U', 'grid_V', 'grid_W', 'icemod', 'ptrc_T', 'diad_T', 'dbio_T', 'scalar' /) 1016 1016 DO jg = 1, SIZE(clsuff) ! grid type 1017 1017 DO jh = 1, 12 ! 1, 2, 3, 4, 6, 12 hours
Note: See TracChangeset
for help on using the changeset viewer.