Changeset 2528 for trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc_rst.F90

Timestamp:

2010-12-27T18:33:53+01:00 (13 years ago)

Author:

rblod

Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc_rst.F90 (modified) (3 diffs, 1 prop)

trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc_rst.F90

@@ -9 +9 @@
 #if defined key_top && defined key_trdmld_trc
    !!----------------------------------------------------------------------
-   USE oce_trc
    USE in_out_manager  ! I/O manager
    USE iom             ! I/O module
-   USE trc             ! for ndttrc ctrcnm
-   USE trdmld_trc_oce  ! for lk_trdmld_trc
+   USE trc             ! for nn_dttrc ctrcnm
+   USE trdmod_trc_oce  ! for lk_trdmld_trc
 
    IMPLICIT NONE
@@ -23 +22 @@
    INTEGER ::   nummldw_trc               ! logical unit for mld restart
    !!---------------------------------------------------------------------------------
-   !! OPA 9.0 , LOCEAN-IPSL (2006) 
+   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
    !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/TRD/trdmld_rst.F90,v 1.6 2006/11/14 09:46:13 opalod Exp $ 
-   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    !!---------------------------------------------------------------------------------
   
@@ -45 +44 @@
       !!--------------------------------------------------------------------------------
 
-      IF( kt == nitrst - ndttrc .OR. nitend - nit000 + 1 < 2 * ndttrc ) THEN ! idem trcrst.F90
+      IF( kt == nitrst - nn_dttrc .OR. nitend - nit000 + 1 < 2 * nn_dttrc ) THEN ! idem trcrst.F90
          IF( nitrst > 1.0e9 ) THEN
             WRITE(clkt,*) nitrst