Changeset 7103 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcnam_age.F90

Timestamp:

2016-10-26T12:52:54+02:00 (8 years ago)

Author:

cetlod

Message:

new top interface : move namelist age from namelist_top to namelist_trc

File:

• branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcnam_age.F90 (modified) (2 diffs)

branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcnam_age.F90

@@ -38 +38 @@
       !!----------------------------------------------------------------------
 
-      ctrcnm    (jp_age) = 'Age'
-      ctrcln    (jp_age) = 'Sea water age since surface contact'
-      ctrcun    (jp_age) = 'year'
-      ln_trc_ini(jp_age) = .false. 
-      !
-      ln_trc_sbc(jp_age) =  ''
-      ln_trc_cbc(jp_age) =  ''
-      ln_trc_obc(jp_age) =  ''
-      !
-
-      REWIND( numtrc_ref )              ! Namelist namagedate in reference namelist : AGE parameters
-      READ  ( numtrc_ref, namage, IOSTAT = ios, ERR = 901)
+      REWIND( numnat_ref )              ! Namelist namagedate in reference namelist : AGE parameters
+      READ  ( numnat_ref, namage, IOSTAT = ios, ERR = 901)
 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist', lwp )
 
-      REWIND( numtrc_cfg )              ! Namelist namagedate in configuration namelist : AGE parameters
-      READ  ( numtrc_cfg, namage, IOSTAT = ios, ERR = 902 )
+      REWIND( numnat_cfg )              ! Namelist namagedate in configuration namelist : AGE parameters
+      READ  ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in configuration namelist', lwp )
-      IF(lwm) WRITE ( numonr, namage )
+      IF(lwm) WRITE ( numont, namage )
 
       IF(lwp) THEN                  ! control print
          WRITE(numout,*) ' '
          WRITE(numout,*) ' Sea Age Tracer'
-         WRITE(numout,*) '  tracer nb : ', jp_age, '    short name : ', TRIM( ctrcnm(jp_age) )
          WRITE(numout,*)
          WRITE(numout,*) ' trc_nam_age: Read namage, namelist for Age passive tracer'
@@ -69 +58 @@
       ENDIF
 
-      IF(lwm) CALL FLUSH ( numonr )     ! flush output namelist
-
+      !
    END SUBROUTINE trc_nam_age