Ignore:
Timestamp:
2018-06-14T10:58:37+02:00 (3 years ago)
Author:
malcolmroberts
Message:

Changed iom and field_def to enable scalar output to work

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_7771_fix_scalar/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r7750 r9798  
    11501150      CHARACTER(LEN=*), INTENT(in) ::   cdname 
    11511151      REAL(wp)        , INTENT(in) ::   pfield0d 
     1152#if ! defined key_xios2 
    11521153      REAL(wp)        , DIMENSION(jpi,jpj) ::   zz     ! masson 
     1154#endif 
    11531155#if defined key_iomput 
     1156#if ! defined key_xios2 
    11541157      zz(:,:)=pfield0d 
    11551158      CALL xios_send_field(cdname, zz) 
    11561159      !CALL xios_send_field(cdname, (/pfield0d/))  
     1160#else 
     1161      CALL xios_send_field(cdname, (/pfield0d/))  
     1162#endif 
    11571163#else 
    11581164      IF( .FALSE. )   WRITE(numout,*) cdname, pfield0d   ! useless test to avoid compilation warnings 
Note: See TracChangeset for help on using the changeset viewer.