Changeset 1006 for trunk/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90

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

File:

• trunk/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90 (modified) (2 diffs)

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