Changeset 2567 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES
- Timestamp:
- 2011-01-25T10:36:27+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90
r2528 r2567 65 65 #endif 66 66 #if defined key_diatrc && ! defined key_iomput 67 NAMELIST/nampisdia/ n writedia, pisdia3d, pisdia2d ! additional diagnostics67 NAMELIST/nampisdia/ nn_writedia, pisdia3d, pisdia2d ! additional diagnostics 68 68 #endif 69 69 NAMELIST/nampisdmp/ ln_pisdmp, ln_pisclo … … 125 125 ! Namelist namlobdia 126 126 ! ------------------- 127 n writedia = 10 ! default values127 nn_writedia = 10 ! default values 128 128 129 129 DO jl = 1, jp_pisces_2d … … 161 161 WRITE(numout,*) 162 162 WRITE(numout,*) ' Namelist : natadd' 163 WRITE(numout,*) ' frequency of outputs for additional arrays n writedia = ', nwritedia163 WRITE(numout,*) ' frequency of outputs for additional arrays nn_writedia = ', nn_writedia 164 164 DO jl = 1, jp_pisces_3d 165 165 jn = jp_pcs0_3d + jl - 1
Note: See TracChangeset
for help on using the changeset viewer.