Changeset 1656 for trunk/NEMO/TOP_SRC/trcwri.F90
- Timestamp:
- 2009-10-14T16:30:35+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/trcwri.F90
r1457 r1656 15 15 USE trc 16 16 USE iom 17 #if defined key_off_tra 18 USE oce_trc 19 USE dianam 20 #endif 17 21 18 22 IMPLICIT NONE … … 40 44 INTEGER :: jn 41 45 CHARACTER (len=20) :: cltra 46 #if defined key_off_tra 47 CHARACTER (len=40) :: clhstnam 48 INTEGER :: inum = 11 ! temporary logical unit 49 #endif 50 42 51 !!--------------------------------------------------------------------- 43 52 … … 46 55 47 56 CALL iom_setkt( kt + ndttrc - 1 ) ! set the passive tracer time step 57 58 #if defined key_off_tra 59 IF( kt == nittrc000 ) THEN 60 ! WRITE root name in date.file for use by postpro 61 IF(lwp) THEN 62 CALL dia_nam( clhstnam, nwritetrc,' ' ) 63 CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 64 WRITE(inum,*) clhstnam 65 CLOSE(inum) 66 ENDIF 67 ENDIF 68 #endif 69 48 70 49 71 ! write the tracer concentrations in the file
Note: See TracChangeset
for help on using the changeset viewer.