Changeset 7124 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcini_age.F90

Timestamp:

2016-10-26T20:08:30+02:00 (7 years ago)

Author:

lovato

Message:

New top interface : revise initialisation routines and namelist_top_cfg in ORCA2_LIM3_TRC, see ticket #1782

File:

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

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

@@ -10 +10 @@
    USE oce_trc
    USE trc
+   USE trcnam_age
    USE trcsms_age
 
@@ -33 +34 @@
       INTEGER    ::  jn
       CHARACTER(len = 20)  ::  cltra
-
-
+      !!----------------------------------------------------------------------
+      !
+      CALL trc_nam_age
+      !
       IF(lwp) WRITE(numout,*)
       IF(lwp) WRITE(numout,*) ' trc_ini_age: passive tracer age'
       IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
       IF(lwp) WRITE(numout,*)
-
-
-      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) = .false.
-      ln_trc_cbc(jp_age) = .false.
-      ln_trc_obc(jp_age) = .false.
 
       rryear  = 1._wp / ( nyear_len(1) * rday )    ! recip number of seconds in one year