Changeset 4362 for branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90

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

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.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