Changeset 1176 for trunk/NEMO/TOP_SRC/LOBSTER/trcsms_lobster.F90

Timestamp:

2008-09-11T18:26:59+02:00 (16 years ago)

Author:

cetlod

Message:

update LOBSTER modules to take into account new trends organization, see ticket:248

File:

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

trunk/NEMO/TOP_SRC/LOBSTER/trcsms_lobster.F90

@@ -13 +13 @@
    !!   trcsms_lobster        :  Time loop of passive tracers sms
    !!----------------------------------------------------------------------
+   USE oce_trc         !
+   USE trc
    USE trcbio
    USE trcopt
    USE trcsed
    USE trcexp
+   USE trdmld_trc_oce
+   USE trdmld_trc
 
    IMPLICIT NONE
@@ -41 +45 @@
       !! -------------------------------------------------------------------------------------
       INTEGER, INTENT( in ) ::   kt      ! ocean time-step index      
+      INTEGER :: jn
+      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   ztrlob   ! used for lobster sms trends
       !!
 
@@ -50 +56 @@
 
       CALL trc_exp( kt )      ! export
+
+      IF( l_trdtrc ) THEN
+          DO jn = 1, jptra
+            ztrlob(:,:,:) = tra(:,:,:,jn)
+            CALL trd_mod_trc( ztrlob, jn, jptrc_trd_sms, kt )   ! save trends
+          END DO
+      END IF
+
+      IF( lk_trdmld_trc )  CALL trd_mld_bio( kt )   ! trends: Mixed-layer
 
    END SUBROUTINE trc_sms_lobster