New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 648 for trunk/NEMO/OPA_SRC/DIA/diawri.F90 – NEMO

Ignore:
Timestamp:
2007-04-12T16:00:53+02:00 (17 years ago)
Author:
opalod
Message:

nemo_v2_bugfix_031:RB: correct some file names for AGRIF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DIA/diawri.F90

    r632 r648  
    557557 
    558558      !! * Local declarations 
     559      CHARACTER (len=32) :: clname 
    559560      CHARACTER (len=40) :: clop 
    560561      INTEGER  ::   & 
     
    567568      !!---------------------------------------------------------------------- 
    568569 
    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  
    574570      ! 0. Initialisation 
    575571      ! ----------------- 
    576572 
    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 
    578578      zdt  = rdt 
    579579      zsto = rdt 
     
    582582      zmax = ( nitend - nit000 + 1 ) * zdt 
    583583 
     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 
    584590      ! 1. Define NETCDF files and fields at beginning of first time step 
    585591      ! ----------------------------------------------------------------- 
     
    587593      ! Compute julian date from starting date of the run 
    588594      CALL ymds2ju( nyear, nmonth, nday, 0.e0, zjulian )         ! time axis  
    589       CALL histbeg( cdfile_name, jpi, glamt, jpj, gphit,   & 
     595      CALL histbeg( clname, jpi, glamt, jpj, gphit,   & 
    590596          1, jpi, 1, jpj, 0, zjulian, zdt, nh_i, id_i, domain_id=nidom )          ! Horizontal grid : glamt and gphit 
    591597      CALL histvert( id_i, "deptht", "Vertical T levels",   &    ! Vertical grid : gdept 
Note: See TracChangeset for help on using the changeset viewer.