- Timestamp:
- 2019-12-21T11:48:18+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/trcwri.F90
r10068 r12282 46 46 IF( ln_timing ) CALL timing_start('trc_wri') 47 47 ! 48 IF( l_offline .AND. kt == nittrc000 .AND. lwp ) THEN ! WRITE root name in date.file for use by postpro 49 CALL dia_nam( clhstnam, nn_writetrc,' ' ) 50 CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 51 WRITE(inum,*) clhstnam 52 CLOSE(inum) 48 IF( l_offline ) THEN ! WRITE root name in date.file for use by postpro 49 IF( kt == nittrc000 .AND. lwp ) THEN ! WRITE root name in date.file for use by postpro 50 CALL dia_nam( clhstnam, nn_writetrc,' ' ) 51 CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 52 WRITE(inum,*) clhstnam 53 CLOSE(inum) 54 ENDIF 55 ! Output of initial vertical scale factor 56 CALL iom_put( "e3t_0", e3t_0(:,:,:) ) 57 CALL iom_put( "e3u_0", e3u_0(:,:,:) ) 58 CALL iom_put( "e3v_0", e3v_0(:,:,:) ) 59 ! 60 CALL iom_put( "e3t" , e3t_n(:,:,:) ) 61 CALL iom_put( "e3u" , e3u_n(:,:,:) ) 62 CALL iom_put( "e3v" , e3v_n(:,:,:) ) 63 ! 53 64 ENDIF 54 65 ! write the tracer concentrations in the file
Note: See TracChangeset
for help on using the changeset viewer.