Changeset 10254

Timestamp:

2018-10-29T17:53:15+01:00 (6 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:

• MY_TRC/trcnam_my_trc.F90 (modified) (1 diff)
• trcnam.F90 (modified) (3 diffs)

NEMO/releases/release-3.6/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcnam_my_trc.F90

@@ -42 +42 @@
       IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~'
       ! 
-      do jn = jp_myt0 , jp_myt1
-         ctrcnm    (jn) = 'NONAME'
-         ctrcln    (jn) = 'NO Long Name'
-         ctrcun    (jn) = 'NOUNIT'
-         ln_trc_ini(jn) = .false.
-         ln_trc_wri(jn) = .true.
-      enddo
-      !
       END SUBROUTINE trc_nam_my_trc
    

NEMO/releases/release-3.6/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

@@ -164 +164 @@
 
 
-      IF(lwp) WRITE(numout,*) 'trc_nam : read the passive tracer namelists'
+      IF(lwp) WRITE(numout,*) 'trc_nam_run : read the passive tracer namelists'
       IF(lwp) WRITE(numout,*) '~~~~~~~'
 
@@ -257 +257 @@
       TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer  ! type of tracer for saving if not key_iomput
       !!
-      NAMELIST/namtrc/ sn_tracer, ln_trcdta,ln_trcdmp, ln_trcdmp_clo
+      NAMELIST/namtrc/ sn_tracer, ln_trcdta, ln_trcdmp, ln_trcdmp_clo
   
       INTEGER  ::   ios                 ! Local integer output status for namelist read
       INTEGER  ::   jn                  ! dummy loop indice
       !!---------------------------------------------------------------------
+      ! Dummy settings to fill tracers data structure
+      !                  !   name   !   title   !   unit   !   init  !  save  !
+      sn_tracer = PTRACER( 'NONAME' , 'NOTITLE' , 'NOUNIT' , .false. , .false.)
+      !
       IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) 'trc_nam : read the passive tracer namelists'
+      IF(lwp) WRITE(numout,*) 'trc_nam_trc : read the passive tracer namelists'
       IF(lwp) WRITE(numout,*) '~~~~~~~'
 
@@ -308 +312 @@
       INTEGER  ::   ios                 ! Local integer output status for namelist read
       !!---------------------------------------------------------------------
-
-      IF(lwp) WRITE(numout,*) 
-      IF(lwp) WRITE(numout,*) 'trc_nam_dia : read the passive tracer diagnostics options'
-      IF(lwp) WRITE(numout,*) '~~~~~~~'
 
       IF(lwp) WRITE(numout,*)