Changeset 1255 for trunk/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90
- Timestamp:
- 2009-01-13T11:20:17+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90
r1146 r1255 46 46 !!---------------------------------------------------------------------- 47 47 CHARACTER (len=32) :: clname 48 INTEGER :: jn49 48 !! 50 49 #if defined key_trc_diaadd 50 INTEGER :: jl, jn 51 51 ! definition of additional diagnostic as a structure 52 52 TYPE DIAG … … 127 127 nwritedia = 10 ! default values 128 128 129 DO jn = jp_pcs0_2d, jp_pcs1_2d 129 DO jl = 1, jp_pisces_2d 130 jn = jp_pcs0_2d + jl - 1 130 131 WRITE(ctrc2d(jn),'("2D_",I1)') jn ! short name 131 132 WRITE(ctrc2l(jn),'("2D DIAGNOSTIC NUMBER ",I2)') jn ! long name … … 133 134 END DO 134 135 ! ! 3D output arrays 135 DO jn = jp_pcs0_3d, jp_pcs1_3d 136 DO jl = 1, jp_pisces_3d 137 jn = jp_pcs0_3d + jl - 1 136 138 WRITE(ctrc3d(jn),'("3D_",I1)') jn ! short name 137 139 WRITE(ctrc3l(jn),'("3D DIAGNOSTIC NUMBER ",I2)') jn ! long name … … 142 144 READ ( numnat, nampisdia ) 143 145 144 DO jn = jp_pcs0_2d, jp_pcs1_2d 145 ctrc2d(jn) = pisdia2d(jn)%snamedia 146 ctrc2l(jn) = pisdia2d(jn)%lnamedia 147 ctrc2u(jn) = pisdia2d(jn)%unitdia 146 DO jl = 1, jp_pisces_2d 147 jn = jp_pcs0_2d + jl - 1 148 ctrc2d(jn) = pisdia2d(jl)%snamedia 149 ctrc2l(jn) = pisdia2d(jl)%lnamedia 150 ctrc2u(jn) = pisdia2d(jl)%unitdia 148 151 END DO 149 152 150 DO jn = jp_pcs0_3d, jp_pcs1_3d 151 ctrc3d(jn) = pisdia3d(jn)%snamedia 152 ctrc3l(jn) = pisdia3d(jn)%lnamedia 153 ctrc3u(jn) = pisdia3d(jn)%unitdia 153 DO jl = 1, jp_pisces_3d 154 jn = jp_pcs0_3d + jl - 1 155 ctrc3d(jn) = pisdia3d(jl)%snamedia 156 ctrc3l(jn) = pisdia3d(jl)%lnamedia 157 ctrc3u(jn) = pisdia3d(jl)%unitdia 154 158 END DO 155 159 … … 158 162 WRITE(numout,*) ' Namelist : natadd' 159 163 WRITE(numout,*) ' frequency of outputs for additional arrays nwritedia = ', nwritedia 160 DO jn = jp_pcs0_3d, jp_pcs1_3d 164 DO jl = 1, jp_pisces_3d 165 jn = jp_pcs0_3d + jl - 1 161 166 WRITE(numout,*) ' 3d output field No : ',jn 162 167 WRITE(numout,*) ' short name : ', TRIM(ctrc3d(jn)) … … 166 171 END DO 167 172 168 DO jn = jp_pcs0_2d, jp_pcs1_2d 173 DO jl = 1, jp_pisces_2d 174 jn = jp_pcs0_2d + jl - 1 169 175 WRITE(numout,*) ' 2d output field No : ',jn 170 176 WRITE(numout,*) ' short name : ', TRIM(ctrc2d(jn))
Note: See TracChangeset
for help on using the changeset viewer.