Changeset 648 for trunk/NEMO/OPA_SRC/DIA/diawri.F90
- Timestamp:
- 2007-04-12T16:00:53+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diawri.F90
r632 r648 557 557 558 558 !! * Local declarations 559 CHARACTER (len=32) :: clname 559 560 CHARACTER (len=40) :: clop 560 561 INTEGER :: & … … 567 568 !!---------------------------------------------------------------------- 568 569 569 IF(lwp) WRITE(numout,*)570 IF(lwp) WRITE(numout,*) 'dia_wri_state : single instantaneous ocean state'571 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~ and forcing fields file created '572 IF(lwp) WRITE(numout,*) ' and named :', cdfile_name, '.nc'573 574 570 ! 0. Initialisation 575 571 ! ----------------- 576 572 577 ! Define frequency of output and means 573 ! Define name, frequency of output and means 574 clname = cdfile_name 575 #if defined key_agrif 576 if ( .NOT. Agrif_Root() ) clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 577 #endif 578 578 zdt = rdt 579 579 zsto = rdt … … 582 582 zmax = ( nitend - nit000 + 1 ) * zdt 583 583 584 IF(lwp) WRITE(numout,*) 585 IF(lwp) WRITE(numout,*) 'dia_wri_state : single instantaneous ocean state' 586 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~ and forcing fields file created ' 587 IF(lwp) WRITE(numout,*) ' and named :', clname, '.nc' 588 589 584 590 ! 1. Define NETCDF files and fields at beginning of first time step 585 591 ! ----------------------------------------------------------------- … … 587 593 ! Compute julian date from starting date of the run 588 594 CALL ymds2ju( nyear, nmonth, nday, 0.e0, zjulian ) ! time axis 589 CALL histbeg( c dfile_name, jpi, glamt, jpj, gphit, &595 CALL histbeg( clname, jpi, glamt, jpj, gphit, & 590 596 1, jpi, 1, jpj, 0, zjulian, zdt, nh_i, id_i, domain_id=nidom ) ! Horizontal grid : glamt and gphit 591 597 CALL histvert( id_i, "deptht", "Vertical T levels", & ! Vertical grid : gdept
Note: See TracChangeset
for help on using the changeset viewer.