Changeset 1743

Timestamp:

2009-11-20T13:14:43+01:00 (14 years ago)

Author:

cetlod

Message:

Add the control of xml attributes for TOP models, see ticket:597

File:

• trunk/NEMO/OPA_SRC/IOM/iom.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/IOM/iom.F90

@@ -987 +987 @@
       !!
       !!----------------------------------------------------------------------
-      CHARACTER(len=6),DIMENSION( 6) ::   clsuff                   ! suffix name
+      CHARACTER(len=6),DIMENSION( 8) ::   clsuff                   ! suffix name
       CHARACTER(len=1),DIMENSION( 3) ::   clgrd                    ! suffix name
       CHARACTER(len=50)              ::   clname                   ! file name
@@ -1015 +1015 @@
       
       ! output file names (attribut: name)
-      clsuff(:) = (/ 'grid_T', 'grid_U', 'grid_V', 'grid_W', 'icemod', 'scalar' /)      
+      clsuff(:) = (/ 'grid_T', 'grid_U', 'grid_V', 'grid_W', 'icemod', 'ptrc_T', 'diad_T', 'scalar' /)      
       DO jg = 1, SIZE(clsuff)                                                                  ! grid type
          DO jh = 1, 12                                                                         ! 1, 2, 3, 4, 6, 12 hours