Changeset 4362


Ignore:
Timestamp:
2014-01-22T10:32:46+01:00 (7 years ago)
Author:
cetlod
Message:

v3.4beta:bugfix to correct I/O format of passive tracer name, see ticket #1144

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  
    114114         ! ------------------- 
    115115         DO jl = 1, jp_pisces_2d 
    116             WRITE(pisdia2d(jl)%sname,'("2D_",I1)') jl                      ! short name 
    117             WRITE(pisdia2d(jl)%lname,'("2D DIAGNOSTIC NUMBER ",I2)') jl    ! long name 
     116            WRITE(pisdia2d(jl)%sname,'("2D_",I2.2)') jl                      ! short name 
     117            WRITE(pisdia2d(jl)%lname,'("2D DIAGNOSTIC NUMBER ",I2.2)') jl    ! long name 
    118118            pisdia2d(jl)%units = ' '                                       ! units 
    119119         END DO 
    120120         !                                 ! 3D output arrays 
    121121         DO jl = 1, jp_pisces_3d 
    122             WRITE(pisdia3d(jl)%sname,'("3D_",I1)') jl                      ! short name 
    123             WRITE(pisdia3d(jl)%lname,'("3D DIAGNOSTIC NUMBER ",I2)') jl    ! long name 
     122            WRITE(pisdia3d(jl)%sname,'("3D_",I2.2)') jl                      ! short name 
     123            WRITE(pisdia3d(jl)%lname,'("3D DIAGNOSTIC NUMBER ",I2.2)') jl    ! long name 
    124124            pisdia3d(jl)%units = ' '                                       ! units 
    125125         END DO 
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r3881 r4362  
    8686      ! 
    8787      DO jn = 1, jptra 
    88          WRITE( sn_tracer(jn)%clsname,'("TR_",I1)'           ) jn 
     88         WRITE( sn_tracer(jn)%clsname,'("TR_",I2.2)'           ) jn 
    8989         WRITE( sn_tracer(jn)%cllname,'("TRACER NUMBER ",I1)') jn 
    9090         sn_tracer(jn)%clunit  = 'mmole/m3' 
Note: See TracChangeset for help on using the changeset viewer.