Changeset 6226

Timestamp:

2016-01-08T13:04:47+01:00 (8 years ago)

Author:

jpalmier

Message:

JPALM -- 08-01-2016 -- debugg

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 (modified) (2 diffs)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -652 +652 @@
 
 
-   SUBROUTINE trc_rst_dia_stat
+   SUBROUTINE trc_rst_dia_stat( dgtr, names)
       !!----------------------------------------------------------------------
       !!                    ***  trc_rst_dia_stat  ***
@@ -658 +658 @@
       !! ** purpose  :   Compute tracers statistics
       !!----------------------------------------------------------------------
-      REAL(wp), DIMENSION(jpi,jpj) , INTENT(in) ::   dgtr      ! ocean time-step
-      CHARACTER(len=*)             , INTENT(in) ::   names       ! "READ"/"WRITE" flag
+      REAL(wp), DIMENSION(jpi,jpj) , INTENT(in) ::   dgtr      ! 2D diag var
+      CHARACTER(len=*)             , INTENT(in) ::   names     ! 2D diag name
       !!---------------------------------------------------------------------
       INTEGER  :: jk, jn