Changeset 1255 for trunk/NEMO/TOP_SRC/MY_TRC

Timestamp:

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

Author:

cetlod

Message:

minor modifications in all top models, see ticket:299

Location:

trunk/NEMO/TOP_SRC/MY_TRC

Files:

• trcctl_my_trc.F90 (modified) (1 diff)
• trcini_my_trc.F90 (modified) (1 diff)
• trcsms_my_trc.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/MY_TRC/trcctl_my_trc.F90

@@ -35 +35 @@
       !!----------------------------------------------------------------------
 
-      INTEGER :: jn
+      INTEGER :: jl, jn
 
       IF(lwp) WRITE(numout,*)
       IF(lwp) WRITE(numout,*) ' use COLOR tracer '
 
-      DO jn = jp_myt0, jp_myt1
+      DO jn = 1, jp_my_trc
+         jn = jp_myt0 + jl - 1
          WRITE(ctrcnm(jn),'(a,i2.2)') 'CLR',jn
          ctrcnl(jn)='Color concentration'

trunk/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90

@@ -43 +43 @@
       IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
       
-      trn(:,:,:,jp_myt0:jp_myt1) = 0.
+      IF( .NOT. lrsttr ) trn(:,:,:,jp_myt0:jp_myt1) = 0.
 
       !

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