Changeset 1846 for branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diawri.F90
- Timestamp:
- 2010-04-21T14:26:53+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diawri.F90
r1756 r1846 197 197 !! * Local declarations 198 198 LOGICAL :: ll_print = .FALSE. ! =T print and flush numout 199 CHARACTER (len= 40) :: &199 CHARACTER (len=72) :: & 200 200 clhstnam, clop, clmx ! temporary names 201 201 INTEGER :: inum = 11 ! temporary logical unit … … 613 613 614 614 !! * Local declarations 615 CHARACTER (len= 32) :: clname615 CHARACTER (len=72) :: clname 616 616 CHARACTER (len=40) :: clop 617 617 INTEGER :: &
Note: See TracChangeset
for help on using the changeset viewer.