Changeset 13059

Timestamp:

2020-06-07T21:40:16+02:00 (5 years ago)

Author:

gm

Message:

grid F wrong zlevels

File:

• NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE/iom.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE/iom.F90

@@ -218 +218 @@
           CALL iom_set_axis_attr(  "depthv", paxis = gdept_1d )
           CALL iom_set_axis_attr(  "depthw", paxis = gdepw_1d )
-          CALL iom_set_axis_attr(  "depthf", paxis = gdepw_1d )
+          CALL iom_set_axis_attr(  "depthf", paxis = gdept_1d )
 
           ! ABL
@@ -241 +241 @@
           CALL iom_set_axis_attr(  "depthv", bounds=zw_bnds )
           CALL iom_set_axis_attr(  "depthw", bounds=zt_bnds )
-          CALL iom_set_axis_attr(  "depthf", bounds=zt_bnds )
+          CALL iom_set_axis_attr(  "depthf", bounds=zw_bnds )
 
           ! ABL
@@ -1397 +1397 @@
 #if defined key_iomput
 !!an juste pour compiler xios2.0
-      IF( xios_field_is_active( cdname, at_current_timestep_arg = .TRUE. ) ) THEN
-         z2d(:,:) = 0._wp
-         CALL xios_recv_field( cdname, z2d)
-      ENDIF
+!      IF( xios_field_is_active( cdname, at_current_timestep_arg = .TRUE. ) ) THEN
+!         z2d(:,:) = 0._wp
+!         CALL xios_recv_field( cdname, z2d)
+!      ENDIF
 !!an 
 #else