Changeset 1830 for branches/CMIP5_IPSL/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

2010-04-12T15:03:51+02:00 (14 years ago)

Author:

cetlod

Message:

Computation of additional diagnostics for PISCES model ( under CPP key key_diaar5 )

• needed for AR5 outputs (vertical inventories, passive tracers at surface,... )
• new output file with suffix dbio_T

File:

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

branches/CMIP5_IPSL/NEMO/OPA_SRC/IOM/iom.F90

@@ -987 +987 @@
       !!
       !!----------------------------------------------------------------------
-      CHARACTER(len=6),DIMENSION( 8) ::   clsuff                   ! suffix name
+      CHARACTER(len=6),DIMENSION( 9) ::   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', 'ptrc_T', 'diad_T', 'scalar' /)      
+      clsuff(:) = (/ 'grid_T', 'grid_U', 'grid_V', 'grid_W', 'icemod', 'ptrc_T', 'diad_T', 'dbio_T', 'scalar' /)      
       DO jg = 1, SIZE(clsuff)                                                                  ! grid type
          DO jh = 1, 12                                                                         ! 1, 2, 3, 4, 6, 12 hours