Changeset 1801 for trunk/NEMO/TOP_SRC/C14b

Timestamp:

2010-01-22T10:36:07+01:00 (14 years ago)

Author:

cetlod

Message:

Reorganisation of restart part of TOP component, see ticket:644

Location:

trunk/NEMO/TOP_SRC/C14b

Files:

• trclsm_c14b.F90 (modified) (3 diffs)
• trcrst_c14b.F90 (added)

trunk/NEMO/TOP_SRC/C14b/trclsm_c14b.F90

@@ -44 +44 @@
       INTEGER ::   numnatb
 
-#if defined key_trc_diaadd
+#if defined key_trc_diaadd && ! defined key_iomput
       ! definition of additional diagnostic as a structure
       INTEGER ::   jl, jn
@@ -58 +58 @@
       !!
       NAMELIST/namc14date/ ndate_beg_b, nyear_res_b
-#if defined key_trc_diaadd
+#if defined key_trc_diaadd && ! defined key_iomput
       NAMELIST/namc14dia/nwritedia, c14dia2d, c14dia3d     ! additional diagnostics
 #endif
@@ -81 +81 @@
       IF(lwp) WRITE(numout,*) '    initial year (aa)                  nyear_beg_b = ', nyear_beg_b
       !
-#if defined key_trc_diaadd
+#if defined key_trc_diaadd && ! defined key_iomput
 
       ! Namelist namc14dia