Changeset 4362 for branches/2012

Timestamp:

2014-01-22T10:32:46+01:00 (10 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:

• PISCES/trcnam_pisces.F90 (modified) (1 diff)
• trcnam.F90 (modified) (1 diff)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90

@@ -114 +114 @@
          ! -------------------
          DO jl = 1, jp_pisces_2d
-            WRITE(pisdia2d(jl)%sname,'("2D_",I1)') jl                      ! short name
-            WRITE(pisdia2d(jl)%lname,'("2D DIAGNOSTIC NUMBER ",I2)') jl    ! long name
+            WRITE(pisdia2d(jl)%sname,'("2D_",I2.2)') jl                      ! short name
+            WRITE(pisdia2d(jl)%lname,'("2D DIAGNOSTIC NUMBER ",I2.2)') jl    ! long name
             pisdia2d(jl)%units = ' '                                       ! units
          END DO
          !                                 ! 3D output arrays
          DO jl = 1, jp_pisces_3d
-            WRITE(pisdia3d(jl)%sname,'("3D_",I1)') jl                      ! short name
-            WRITE(pisdia3d(jl)%lname,'("3D DIAGNOSTIC NUMBER ",I2)') jl    ! long name
+            WRITE(pisdia3d(jl)%sname,'("3D_",I2.2)') jl                      ! short name
+            WRITE(pisdia3d(jl)%lname,'("3D DIAGNOSTIC NUMBER ",I2.2)') jl    ! long name
             pisdia3d(jl)%units = ' '                                       ! units
          END DO

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

@@ -86 +86 @@
       !
       DO jn = 1, jptra
-         WRITE( sn_tracer(jn)%clsname,'("TR_",I1)'           ) jn
+         WRITE( sn_tracer(jn)%clsname,'("TR_",I2.2)'           ) jn
          WRITE( sn_tracer(jn)%cllname,'("TRACER NUMBER ",I1)') jn
          sn_tracer(jn)%clunit  = 'mmole/m3'