Changeset 1006


Ignore:
Timestamp:
2008-05-30T11:49:30+02:00 (13 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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90

    r932 r1006  
    3030 
    3131   ! assign an index in trc arrays for each PTS prognostic variables 
    32    INTEGER, PUBLIC, PARAMETER ::   jp_myt1 = jp_lpc + 1     !: 1st MY_TRC tracer 
    33    INTEGER, PUBLIC, PARAMETER ::   jp_myt2 = jp_lpc + 1     !: 2nd MY_TRC tracer 
    34    INTEGER, PUBLIC, PARAMETER ::   jp_myt3 = jp_lpc + 1     !: 3rd MY_TRC tracer 
     32   INTEGER, PUBLIC, PARAMETER ::   jpmyt1 = jp_lpc + 1     !: 1st MY_TRC tracer 
     33   INTEGER, PUBLIC, PARAMETER ::   jpmyt2 = jp_lpc + 1     !: 2nd MY_TRC tracer 
     34   INTEGER, PUBLIC, PARAMETER ::   jpmyt3 = jp_lpc + 1     !: 3rd MY_TRC tracer 
    3535 
    3636#else 
  • trunk/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90

    r932 r1006  
    1313   !!---------------------------------------------------------------------- 
    1414   USE par_trc         ! TOP parameters 
     15   USE trc 
    1516 
    1617   IMPLICIT NONE 
     
    4041      IF(lwp) WRITE(numout,*) ' trc_ini_my_trc: initialisation of MY_TRC model' 
    4142      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 
     43       
     44      trn(:,:,:,jp_myt0:jp_myt1) = 0. 
     45 
    4246      ! 
    4347   END SUBROUTINE trc_ini_my_trc 
Note: See TracChangeset for help on using the changeset viewer.