Changeset 3862 for branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/SAS_SRC/diawri.F90

Timestamp:

2013-04-08T13:07:43+02:00 (11 years ago)

Author:

acc

Message:

Branch 2013/dev_r3858_NOC_ZTC #863. Change names of gdept_0, gdepw_0, e3t_0, e3w_0 to gdept_1d, gdepw_1d, e3t_1d, e3w_1d respectively in preparation for the introduction of time invariant 3d arrays using the _0 suffix

File:

• branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/SAS_SRC/diawri.F90 (modified) (4 diffs)

branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/SAS_SRC/diawri.F90

@@ -220 +220 @@
             &          nit000-1, zjulian, zdt, nh_T, nid_T, domain_id=nidom, snc4chunks=snc4set )
          CALL histvert( nid_T, "deptht", "Vertical T levels",      &  ! Vertical grid: gdept
-            &           "m", ipk, gdept_0, nz_T, "down" )
+            &           "m", ipk, gdept_1d, nz_T, "down" )
          !                                                            ! Index of ocean points
          CALL wheneq( jpi*jpj    , tmask, 1, 1., ndex_hT, ndim_hT )      ! surface
@@ -232 +232 @@
             &          nit000-1, zjulian, zdt, nh_U, nid_U, domain_id=nidom, snc4chunks=snc4set )
          CALL histvert( nid_U, "depthu", "Vertical U levels",      &  ! Vertical grid: gdept
-            &           "m", ipk, gdept_0, nz_U, "down" )
+            &           "m", ipk, gdept_1d, nz_U, "down" )
          !                                                            ! Index of ocean points
          CALL wheneq( jpi*jpj    , umask, 1, 1., ndex_hU, ndim_hU )      ! surface
@@ -244 +244 @@
             &          nit000-1, zjulian, zdt, nh_V, nid_V, domain_id=nidom, snc4chunks=snc4set )
          CALL histvert( nid_V, "depthv", "Vertical V levels",      &  ! Vertical grid : gdept
-            &          "m", ipk, gdept_0, nz_V, "down" )
+            &          "m", ipk, gdept_1d, nz_V, "down" )
          !                                                            ! Index of ocean points
          CALL wheneq( jpi*jpj    , vmask, 1, 1., ndex_hV, ndim_hV )      ! surface
@@ -391 +391 @@
           1, jpi, 1, jpj, nit000-1, zjulian, zdt, nh_i, id_i, domain_id=nidom, snc4chunks=snc4set ) ! Horizontal grid : glamt and gphit
       CALL histvert( id_i, "deptht", "Vertical T levels",   &    ! Vertical grid : gdept
-          "m", jpk, gdept_0, nz_i, "down")
+          "m", jpk, gdept_1d, nz_i, "down")
 
       ! Declare all the output fields as NetCDF variables