Changeset 10254 for NEMO/releases


Ignore:
Timestamp:
2018-10-29T17:53:15+01:00 (2 years ago)
Author:
lovato
Message:

v3.6 add missing initialization to dummy values of sn_tracer in trcnam.F90

Location:
NEMO/releases/release-3.6/NEMOGCM/NEMO/TOP_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/release-3.6/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcnam_my_trc.F90

    r8353 r10254  
    4242      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~' 
    4343      !  
    44       do jn = jp_myt0 , jp_myt1 
    45          ctrcnm    (jn) = 'NONAME' 
    46          ctrcln    (jn) = 'NO Long Name' 
    47          ctrcun    (jn) = 'NOUNIT' 
    48          ln_trc_ini(jn) = .false. 
    49          ln_trc_wri(jn) = .true. 
    50       enddo 
    51       ! 
    5244      END SUBROUTINE trc_nam_my_trc 
    5345    
  • NEMO/releases/release-3.6/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r8353 r10254  
    164164 
    165165 
    166       IF(lwp) WRITE(numout,*) 'trc_nam : read the passive tracer namelists' 
     166      IF(lwp) WRITE(numout,*) 'trc_nam_run : read the passive tracer namelists' 
    167167      IF(lwp) WRITE(numout,*) '~~~~~~~' 
    168168 
     
    257257      TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer  ! type of tracer for saving if not key_iomput 
    258258      !! 
    259       NAMELIST/namtrc/ sn_tracer, ln_trcdta,ln_trcdmp, ln_trcdmp_clo 
     259      NAMELIST/namtrc/ sn_tracer, ln_trcdta, ln_trcdmp, ln_trcdmp_clo 
    260260   
    261261      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    262262      INTEGER  ::   jn                  ! dummy loop indice 
    263263      !!--------------------------------------------------------------------- 
     264      ! Dummy settings to fill tracers data structure 
     265      !                  !   name   !   title   !   unit   !   init  !  save  ! 
     266      sn_tracer = PTRACER( 'NONAME' , 'NOTITLE' , 'NOUNIT' , .false. , .false.) 
     267      ! 
    264268      IF(lwp) WRITE(numout,*) 
    265       IF(lwp) WRITE(numout,*) 'trc_nam : read the passive tracer namelists' 
     269      IF(lwp) WRITE(numout,*) 'trc_nam_trc : read the passive tracer namelists' 
    266270      IF(lwp) WRITE(numout,*) '~~~~~~~' 
    267271 
     
    308312      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    309313      !!--------------------------------------------------------------------- 
    310  
    311       IF(lwp) WRITE(numout,*)  
    312       IF(lwp) WRITE(numout,*) 'trc_nam_dia : read the passive tracer diagnostics options' 
    313       IF(lwp) WRITE(numout,*) '~~~~~~~' 
    314314 
    315315      IF(lwp) WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.