Changeset 1255 for trunk/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90

Timestamp:

2009-01-13T11:20:17+01:00 (15 years ago)

Author:

cetlod

Message:

minor modifications in all top models, see ticket:299

File:

• trunk/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90

@@ -13 +13 @@
    !!----------------------------------------------------------------------
    USE par_trc         ! TOP parameters
-   USE oce_trc
-   USE trc
+   USE oce_trc         ! Ocean variables
+   USE trc             ! TOP variables
+   USE trdmld_trc_oce
+   USE trdmld_trc
 
    IMPLICIT NONE
@@ -38 +40 @@
       !!----------------------------------------------------------------------
       INTEGER, INTENT(in) :: kt   ! ocean time-step index
+      REAL(wp), DIMENSION(jpi,jpj,jpk)    ::   ztrmyt 
+      INTEGER :: jn
+
 
       IF(lwp) WRITE(numout,*)
@@ -55 +60 @@
       END WHERE
 
+      ! Save the trends in the ixed layer
+      IF( l_trdtrc ) THEN
+          DO jn = jp_myt0, jp_myt1
+            ztrmyt(:,:,:) = tra(:,:,:,jn)
+            CALL trd_mod_trc( ztrmyt, jn, jptrc_trd_sms, kt )   ! save trends
+          END DO
+      END IF
       !
    END SUBROUTINE trc_sms_my_trc