New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10254 for NEMO/releases/release-3.6/NEMOGCM/NEMO/TOP_SRC/trcnam.F90 – NEMO

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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.