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