Changeset 9798


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

Changed iom and field_def to enable scalar output to work

Location:
branches/UKMO/dev_r5518_GO6_package_7771_fix_scalar/NEMOGCM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_7771_fix_scalar/NEMOGCM/CONFIG/SHARED/field_def.xml

    r7747 r9798  
    565565      <!-- scalar variables available with key_diaar5 --> 
    566566 
    567       <field_group id="scalar"  domain_ref="1point" > 
     567      <field_group id="scalar"  grid_ref="scalar" > 
    568568         <field id="voltot"     long_name="Sea Water Volume"                             standard_name="sea_water_volume"                               unit="m3"   /> 
    569569         <field id="sshtot"     long_name="global mean ssh"                              standard_name="global_average_sea_level_change"                unit="m"    /> 
     
    594594      <!-- LIM3 scalar variables --> 
    595595 
    596       <field_group id="SBC_scalar"  domain_ref="1point" > 
     596      <field_group id="SBC_scalar"  grid_ref="scalar" > 
    597597         <!-- available with ln_limdiaout --> 
    598598         <field id="ibgvoltot"    long_name="global mean ice volume"                                 unit="km3"        /> 
     
    651651      <!-- variables available with key_float --> 
    652652 
    653       <field_group id="floatvar" domain_ref="1point" axis_ref="nfloat" operation="instant" > 
     653      <field_group id="floatvar" grid_ref="scalar" axis_ref="nfloat" operation="instant" > 
    654654        <field id="traj_lon"      long_name="floats longitude"                                                           unit="degrees_east"  /> 
    655655        <field id="traj_lat"      long_name="floats latitude"                                                            unit="degrees_north" /> 
  • 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.