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 12143 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/SAS/diawri.F90 – NEMO

Ignore:
Timestamp:
2019-12-10T12:57:49+01:00 (4 years ago)
Author:
mathiot
Message:

update ENHANCE-02_ISF_nemo to 12072 (sette in progress)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/SAS/diawri.F90

    r10425 r12143  
    125125      !!      define all the NETCDF files and fields 
    126126      !!      At each time step call histdef to compute the mean if ncessary 
    127       !!      Each nwrite time step, output the instantaneous or mean fields 
     127      !!      Each nn_write time step, output the instantaneous or mean fields 
    128128      !!---------------------------------------------------------------------- 
    129129      !! 
     
    138138      REAL(wp) ::   zsto, zout, zmax, zjulian                ! local scalars 
    139139      !!---------------------------------------------------------------------- 
    140       !  
    141       IF( ln_timing )   CALL timing_start('dia_wri') 
    142140      ! 
    143141      ! Output the initial state and forcings 
     
    147145      ENDIF 
    148146      ! 
     147      IF( nn_write == -1 )   RETURN   ! we will never do any output 
     148      !  
     149      IF( ln_timing )   CALL timing_start('dia_wri') 
     150      ! 
    149151      ! 0. Initialisation 
    150152      ! ----------------- 
     
    159161      ENDIF 
    160162#if defined key_diainstant 
    161       zsto = nwrite * rdt 
     163      zsto = nn_write * rdt 
    162164      clop = "inst("//TRIM(clop)//")" 
    163165#else 
     
    165167      clop = "ave("//TRIM(clop)//")" 
    166168#endif 
    167       zout = nwrite * rdt 
     169      zout = nn_write * rdt 
    168170      zmax = ( nitend - nit000 + 1 ) * rdt 
    169171 
     
    196198         ! WRITE root name in date.file for use by postpro 
    197199         IF(lwp) THEN 
    198             CALL dia_nam( clhstnam, nwrite,' ' ) 
     200            CALL dia_nam( clhstnam, nn_write,' ' ) 
    199201            CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
    200202            WRITE(inum,*) clhstnam 
     
    204206         ! Define the T grid FILE ( nid_T ) 
    205207 
    206          CALL dia_nam( clhstnam, nwrite, 'grid_T' ) 
     208         CALL dia_nam( clhstnam, nn_write, 'grid_T' ) 
    207209         IF(lwp) WRITE(numout,*) " Name of NETCDF file ", clhstnam    ! filename 
    208210         CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,           &  ! Horizontal grid: glamt and gphit 
     
    216218         ! Define the U grid FILE ( nid_U ) 
    217219 
    218          CALL dia_nam( clhstnam, nwrite, 'grid_U' ) 
     220         CALL dia_nam( clhstnam, nn_write, 'grid_U' ) 
    219221         IF(lwp) WRITE(numout,*) " Name of NETCDF file ", clhstnam    ! filename 
    220222         CALL histbeg( clhstnam, jpi, glamu, jpj, gphiu,           &  ! Horizontal grid: glamu and gphiu 
     
    228230         ! Define the V grid FILE ( nid_V ) 
    229231 
    230          CALL dia_nam( clhstnam, nwrite, 'grid_V' )                   ! filename 
     232         CALL dia_nam( clhstnam, nn_write, 'grid_V' )                   ! filename 
    231233         IF(lwp) WRITE(numout,*) " Name of NETCDF file ", clhstnam 
    232234         CALL histbeg( clhstnam, jpi, glamv, jpj, gphiv,           &  ! Horizontal grid: glamv and gphiv 
     
    291293      ! donne le nombre d'elements, et ndex la liste des indices a sortir 
    292294 
    293       IF( lwp .AND. MOD( itmod, nwrite ) == 0 ) THEN  
     295      IF( lwp .AND. MOD( itmod, nn_write ) == 0 ) THEN  
    294296         WRITE(numout,*) 'dia_wri : write model outputs in NetCDF files at ', kt, 'time-step' 
    295297         WRITE(numout,*) '~~~~~~ ' 
Note: See TracChangeset for help on using the changeset viewer.