Changeset 4362
- Timestamp:
- 2014-01-22T10:32:46+01:00 (10 years ago)
- Location:
- branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90
r3881 r4362 114 114 ! ------------------- 115 115 DO jl = 1, jp_pisces_2d 116 WRITE(pisdia2d(jl)%sname,'("2D_",I 1)') jl ! short name117 WRITE(pisdia2d(jl)%lname,'("2D DIAGNOSTIC NUMBER ",I2 )') jl ! long name116 WRITE(pisdia2d(jl)%sname,'("2D_",I2.2)') jl ! short name 117 WRITE(pisdia2d(jl)%lname,'("2D DIAGNOSTIC NUMBER ",I2.2)') jl ! long name 118 118 pisdia2d(jl)%units = ' ' ! units 119 119 END DO 120 120 ! ! 3D output arrays 121 121 DO jl = 1, jp_pisces_3d 122 WRITE(pisdia3d(jl)%sname,'("3D_",I 1)') jl ! short name123 WRITE(pisdia3d(jl)%lname,'("3D DIAGNOSTIC NUMBER ",I2 )') jl ! long name122 WRITE(pisdia3d(jl)%sname,'("3D_",I2.2)') jl ! short name 123 WRITE(pisdia3d(jl)%lname,'("3D DIAGNOSTIC NUMBER ",I2.2)') jl ! long name 124 124 pisdia3d(jl)%units = ' ' ! units 125 125 END DO -
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r3881 r4362 86 86 ! 87 87 DO jn = 1, jptra 88 WRITE( sn_tracer(jn)%clsname,'("TR_",I 1)' ) jn88 WRITE( sn_tracer(jn)%clsname,'("TR_",I2.2)' ) jn 89 89 WRITE( sn_tracer(jn)%cllname,'("TRACER NUMBER ",I1)') jn 90 90 sn_tracer(jn)%clunit = 'mmole/m3'
Note: See TracChangeset
for help on using the changeset viewer.