Changeset 9798 for branches/UKMO/dev_r5518_GO6_package_7771_fix_scalar/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

2018-06-14T10:58:37+02:00 (6 years ago)

Author:

malcolmroberts

Message:

Changed iom and field_def to enable scalar output to work

File:

• branches/UKMO/dev_r5518_GO6_package_7771_fix_scalar/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_7771_fix_scalar/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -1150 +1150 @@
       CHARACTER(LEN=*), INTENT(in) ::   cdname
       REAL(wp)        , INTENT(in) ::   pfield0d
+#if ! defined key_xios2
       REAL(wp)        , DIMENSION(jpi,jpj) ::   zz     ! masson
+#endif
 #if defined key_iomput
+#if ! defined key_xios2
       zz(:,:)=pfield0d
       CALL xios_send_field(cdname, zz)
       !CALL xios_send_field(cdname, (/pfield0d/)) 
+#else
+      CALL xios_send_field(cdname, (/pfield0d/)) 
+#endif
 #else
       IF( .FALSE. )   WRITE(numout,*) cdname, pfield0d   ! useless test to avoid compilation warnings