Changeset 1804 for branches/dev_005_AWL/NEMO/TOP_SRC/C14b
- Timestamp:
- 2010-02-08T11:51:02+01:00 (14 years ago)
- Location:
- branches/dev_005_AWL/NEMO/TOP_SRC/C14b
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_005_AWL/NEMO/TOP_SRC/C14b/trclsm_c14b.F90
r1581 r1804 44 44 INTEGER :: numnatb 45 45 46 #if defined key_trc_diaadd 46 #if defined key_trc_diaadd && ! defined key_iomput 47 47 ! definition of additional diagnostic as a structure 48 48 INTEGER :: jl, jn … … 58 58 !! 59 59 NAMELIST/namc14date/ ndate_beg_b, nyear_res_b 60 #if defined key_trc_diaadd 60 #if defined key_trc_diaadd && ! defined key_iomput 61 61 NAMELIST/namc14dia/nwritedia, c14dia2d, c14dia3d ! additional diagnostics 62 62 #endif … … 81 81 IF(lwp) WRITE(numout,*) ' initial year (aa) nyear_beg_b = ', nyear_beg_b 82 82 ! 83 #if defined key_trc_diaadd 83 #if defined key_trc_diaadd && ! defined key_iomput 84 84 85 85 ! Namelist namc14dia
Note: See TracChangeset
for help on using the changeset viewer.