Changeset 2038 for branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/LOBSTER/trcsms_lobster.F90

Timestamp:

2010-08-02T12:57:40+02:00 (14 years ago)

Author:

cetlod

Message:

Apply the merge to passive tracers, see ticket:693

File:

• branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/LOBSTER/trcsms_lobster.F90 (modified) (3 diffs)

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

@@ -19 +19 @@
    USE trcsed
    USE trcexp
-   USE trdmld_trc_oce
+   USE trdmod_oce
+   USE trdmod_trc
    USE trdmld_trc
 
@@ -50 +51 @@
 
       CALL trc_opt( kt )      ! optical model
-
       CALL trc_bio( kt )      ! biological model
-
       CALL trc_sed( kt )      ! sedimentation model
-
       CALL trc_exp( kt )      ! export
 
@@ -60 +58 @@
           DO jn = jp_lob0, jp_lob1
             ztrlob(:,:,:) = tra(:,:,:,jn)
-            CALL trd_mod_trc( ztrlob, jn, jptrc_trd_sms, kt )   ! save trends
+            CALL trd_mod_trc( ztrlob, jn, jptra_trd_sms, kt )   ! save trends
           END DO
       END IF