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 1394 – NEMO

Changeset 1394


Ignore:
Timestamp:
2009-04-08T17:59:10+02:00 (15 years ago)
Author:
rblod
Message:

dev_004_VVL:sync: synchronisation with the trunk, see ticket #404

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_004_VVL/NEMO/TOP_SRC/trcdia.F90

    r1353 r1394  
    231231      !! 
    232232      !!        At each time step call histdef to compute the mean if necessary 
    233       !!        Each nwritetrc time step, output the instantaneous or mean fields 
     233      !!        Each nwritetrd time step, output the instantaneous or mean fields 
    234234      !! 
    235235      !!        IF kindic <0, output of fields before the model interruption. 
     
    471471      !! 
    472472      !!        At each time step call histdef to compute the mean if necessary 
    473       !!        Each nwritetrc time step, output the instantaneous or mean fields 
     473      !!        Each nwritedia time step, output the instantaneous or mean fields 
    474474      !! 
    475475      !!        IF kindic <0, output of fields before the model interruption. 
     
    530530         ! Define the T grid file for tracer auxiliary files 
    531531 
    532          CALL dia_nam( clhstnam, nwrite, 'diad_T' ) 
     532         CALL dia_nam( clhstnam, nwritedia, 'diad_T' ) 
    533533         IF(lwp) WRITE(numout,*) " Name of NETCDF file ", clhstnam 
    534534 
     
    620620      !! 
    621621      !!        At each time step call histdef to compute the mean if necessary 
    622       !!        Each nwritetrc time step, output the instantaneous or mean fields 
     622      !!        Each nwritebio time step, output the instantaneous or mean fields 
    623623      !! 
    624624      !!        IF kindic <0, output of fields before the model interruption. 
     
    678678         ! Define the NETCDF files for biological trends 
    679679 
    680          CALL dia_nam(clhstnam,nwrite,'biolog') 
     680         CALL dia_nam(clhstnam,nwritebio,'biolog') 
    681681         IF(lwp)WRITE(numout,*) " Name of NETCDF file for biological trends ", clhstnam 
    682682         ! Horizontal grid : glamt and gphit 
Note: See TracChangeset for help on using the changeset viewer.