Changeset 1808 for branches/CMIP5_IPSL/NEMO/TOP_SRC/CFC/trclsm_cfc.F90

Timestamp:

2010-03-11T10:17:56+01:00 (14 years ago)

Author:

cetlod

Message:

update TOP_SRC component on CMIP5_IPSL branch to take into account bugfixes (ie vertical diffusion routines), re-organization of restart part, damping of passive tracers on closed seas for PISCES

File:

• branches/CMIP5_IPSL/NEMO/TOP_SRC/CFC/trclsm_cfc.F90 (modified) (3 diffs)

branches/CMIP5_IPSL/NEMO/TOP_SRC/CFC/trclsm_cfc.F90

@@ -43 +43 @@
       !!----------------------------------------------------------------------
       INTEGER ::   numnatc
-#if defined key_trc_diaadd
+#if defined key_trc_diaadd && ! defined key_iomput
       ! definition of additional diagnostic as a structure
       INTEGER :: jl, jn
@@ -56 +56 @@
       !!
       NAMELIST/namcfcdate/ ndate_beg, nyear_res
-#if defined key_trc_diaadd
+#if defined key_trc_diaadd && ! defined key_iomput
       NAMELIST/namcfcdia/nwritedia, cfcdia2d     ! additional diagnostics
 #endif
@@ -79 +79 @@
       IF(lwp) WRITE(numout,*) '    initial year (aa)                       nyear_beg = ', nyear_beg
       !
-#if defined key_trc_diaadd
+#if defined key_trc_diaadd && ! defined key_iomput
 
       ! Namelist namcfcdia