Changeset 1006 for trunk/NEMO

Timestamp:

2008-05-30T11:49:30+02:00 (16 years ago)

Author:

cetlod

Message:

Update MY_TRC modules to take into account the re-organization of TOP initialization phase, see ticket 169

Location:

trunk/NEMO/TOP_SRC/MY_TRC

Files:

• par_my_trc.F90 (modified) (1 diff)
• trcini_my_trc.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90

@@ -30 +30 @@
 
    ! assign an index in trc arrays for each PTS prognostic variables
-   INTEGER, PUBLIC, PARAMETER ::   jp_myt1 = jp_lpc + 1     !: 1st MY_TRC tracer
-   INTEGER, PUBLIC, PARAMETER ::   jp_myt2 = jp_lpc + 1     !: 2nd MY_TRC tracer
-   INTEGER, PUBLIC, PARAMETER ::   jp_myt3 = jp_lpc + 1     !: 3rd MY_TRC tracer
+   INTEGER, PUBLIC, PARAMETER ::   jpmyt1 = jp_lpc + 1     !: 1st MY_TRC tracer
+   INTEGER, PUBLIC, PARAMETER ::   jpmyt2 = jp_lpc + 1     !: 2nd MY_TRC tracer
+   INTEGER, PUBLIC, PARAMETER ::   jpmyt3 = jp_lpc + 1     !: 3rd MY_TRC tracer
 
 #else

trunk/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90

@@ -13 +13 @@
    !!----------------------------------------------------------------------
    USE par_trc         ! TOP parameters
+   USE trc
 
    IMPLICIT NONE
@@ -40 +41 @@
       IF(lwp) WRITE(numout,*) ' trc_ini_my_trc: initialisation of MY_TRC model'
       IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
+      
+      trn(:,:,:,jp_myt0:jp_myt1) = 0.
+
       !
    END SUBROUTINE trc_ini_my_trc