Changeset 689 for trunk/NEMO/OPA_SRC/DIA
- Timestamp:
- 2007-06-29T19:29:57+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diafwb.F90
r648 r689 44 44 !!---------------------------------------------------------------------- 45 45 !! OPA 9.0 , LOCEAN-IPSL (2005) 46 !! $Header $46 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DIA/diafwb.F90,v 1.11 2007/06/29 17:01:51 opalod Exp $ 47 47 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 48 48 !!---------------------------------------------------------------------- … … 391 391 clname = 'STRAIT.dat' 392 392 CALL ctlopn( inum, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 393 & 1, numout, .TRUE., 1 )393 & 1, numout, lwp, 1 ) 394 394 WRITE(inum,*) 395 395 WRITE(inum,*) 'Net freshwater budget '
Note: See TracChangeset
for help on using the changeset viewer.