Changeset 7103 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcnam.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/trcnam.F90 (modified) (2 diffs)

branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

@@ -64 +64 @@
       IF( ln_trcdmp .OR. ln_trcdmp_clo )   ln_trcdta     = .TRUE.   ! damping : need to have clim data
       !
-      IF( .NOT.ln_trcdta               )   ln_trc_ini(:) = .FALSE.
 
       IF(lwp) THEN                   ! control print
@@ -230 +229 @@
       ENDIF
       !
-      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'trc_nam_ice: unable to allocate arrays' )
-      !
-      IF( ln_age .OR. ll_cfc .OR. ln_c14 ) THEN
+      IF( ln_age )  CALL trc_nam_age
+      !
+      IF( ll_cfc .OR. ln_c14 ) THEN
         !                             ! Open namelist files
         CALL ctl_opn( numtrc_ref, 'namelist_trc_ref'   ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )