Changeset 2104 for branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/LOBSTER/trcexp.F90

Timestamp:

2010-09-17T14:35:46+02:00 (14 years ago)

Author:

cetlod

Message:

update DEV_r2006_merge_TRA_TRC according to review

File:

• branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/LOBSTER/trcexp.F90 (modified) (4 diffs)

branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/LOBSTER/trcexp.F90

@@ -19 +19 @@
    USE lbclnk
    USE trc
-   USE trctrp_lec
+   USE trcnam_trp
    USE prtctl_trc      ! Print control for debbuging
+   USE trdmod_oce
    USE trdmod_trc
    USE iom
@@ -60 +61 @@
       !!---------------------------------------------------------------------
 
-      IF( kt == nittrc000 ) THEN
+      IF( kt == nit000 ) THEN
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) ' trc_exp: LOBSTER export'
@@ -125 +126 @@
       IF( ln_trczdf_exp .AND. (ln_trcadv_cen2 .OR. ln_trcadv_tvd) ) THEN
          zfact = 2. * rdttra(jk) * FLOAT( nn_dttrc ) 
-         IF( neuler == 0 .AND. kt == nittrc000 )   zfact = rdttra(jk) * FLOAT(nn_dttrc) 
+         IF( neuler == 0 .AND. kt == nit000 )   zfact = rdttra(jk) * FLOAT(nn_dttrc) 
          sedpoca(:,:) =  sedpocb(:,:) + zfact * sedpoca(:,:) 
       ENDIF
@@ -133 +134 @@
       ! ------------------------------
       IF( ln_trcadv_cen2 .OR. ln_trcadv_tvd  ) THEN         ! centred or tvd scheme
-         IF( neuler == 0 .AND. kt == nittrc000 ) THEN
+         IF( neuler == 0 .AND. kt == nit000 ) THEN
             DO jj = 1, jpj
                DO ji = 1, jpi