Changeset 6137 for branches/2015/dev_r5803_NOC_WAD/NEMOGCM/NEMO/OPA_SRC

Timestamp:

2015-12-21T10:37:39+01:00 (9 years ago)

Author:

acc

Message:

Branch 2015/dev_r5803_NOC_WAD. Submit final changes after initial Irish Sea test and before attempting merge with dev_merge_2015 branch.

File:

• branches/2015/dev_r5803_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (1 diff)

branches/2015/dev_r5803_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -170 +170 @@
 
       ! Add vertical grid bounds
-      z_bnds(:      ,1) = gdepw_1d(:)
-      z_bnds(1:jpkm1,2) = gdepw_1d(2:jpk)
-      z_bnds(jpk:   ,2) = gdepw_1d(jpk) + e3t_1d(jpk)
-      CALL iom_set_axis_attr( "deptht", bounds=z_bnds )
-      CALL iom_set_axis_attr( "depthu", bounds=z_bnds )
-      CALL iom_set_axis_attr( "depthv", bounds=z_bnds )
-      z_bnds(:    ,2) = gdept_1d(:)
-      z_bnds(2:jpk,1) = gdept_1d(1:jpkm1)
-      z_bnds(1    ,1) = gdept_1d(1) - e3w_1d(1)
-      CALL iom_set_axis_attr( "depthw", bounds=z_bnds )
+      IF( ln_cfmeta ) THEN
+         z_bnds(:      ,1) = gdepw_1d(:)
+         z_bnds(1:jpkm1,2) = gdepw_1d(2:jpk)
+         z_bnds(jpk:   ,2) = gdepw_1d(jpk) + e3t_1d(jpk)
+         CALL iom_set_axis_attr( "deptht", bounds=z_bnds )
+         CALL iom_set_axis_attr( "depthu", bounds=z_bnds )
+         CALL iom_set_axis_attr( "depthv", bounds=z_bnds )
+         z_bnds(:    ,2) = gdept_1d(:)
+         z_bnds(2:jpk,1) = gdept_1d(1:jpkm1)
+         z_bnds(1    ,1) = gdept_1d(1) - e3w_1d(1)
+         CALL iom_set_axis_attr( "depthw", bounds=z_bnds )
+      ENDIF
 
 # if defined key_floats