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 2104 for branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/trcwri.F90 – NEMO

Ignore:
Timestamp:
2010-09-17T14:35:46+02:00 (14 years ago)
Author:
cetlod
Message:

update DEV_r2006_merge_TRA_TRC according to review

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/trcwri.F90

    r2038 r2104  
    2828   !! * Substitutions 
    2929#  include "top_substitute.h90" 
    30    !!---------------------------------------------------------------------- 
    31    !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
    32    !! $Id: trcdia.F90 1450 2009-05-15 14:12:12Z cetlod $  
    33    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    34    !!---------------------------------------------------------------------- 
    3530 
    3631CONTAINS 
     
    6863  
    6964#if defined key_offline 
    70       IF( kt == nittrc000 ) THEN 
     65      IF( kt == nit000 ) THEN 
    7166        ! WRITE root name in date.file for use by postpro 
    7267         IF(lwp) THEN 
     
    9893#endif 
    9994 
     95   !!---------------------------------------------------------------------- 
     96   !! NEMO/TOP 3.3 , LOCEAN-IPSL (2010)  
     97   !! $Id: $  
     98   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    10099   !!====================================================================== 
    101100END MODULE trcwri 
Note: See TracChangeset for help on using the changeset viewer.