Changeset 460 for trunk/NEMO/OPA_SRC/DIA/diagap.F90

Timestamp:

2006-05-10T19:10:25+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_051:RB: update diagnostics routines following the new coordinate definition (gdept -> gdept_0)

File:

• trunk/NEMO/OPA_SRC/DIA/diagap.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DIA/diagap.F90

@@ -31 +31 @@
    !! * Module variables
    INTEGER ::                 &
-!???  numgap,                 &  ! logical unit for differences diagnostic
       ngap  ,                 &  ! time step frequency
       nprg                       ! switch for control print
@@ -171 +170 @@
          ! Vertical grids : gdept, gdepw
          CALL histvert( numgap, "deptht", "Vertical T levels",   &
-                         "m", jpk, gdept, ndepidg )
+                         "m", jpk, gdept_0, ndepidg )
 
          ! define fields to be stored