Changeset 5426


Ignore:
Timestamp:
2015-06-16T00:09:51+02:00 (5 years ago)
Author:
hadcv
Message:

Revert the scalar variable domain change from [5415].

Location:
trunk/NEMOGCM
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/CONFIG/SHARED/domain_def.xml

    r5415 r5426  
    55    <!--   My zoom: example of hand defined zoom   --> 
    66         <domain id="myzoom" zoom_ibegin="10" zoom_jbegin="10" zoom_ni="5" zoom_nj="5" /> 
     7         <domain id="1point" zoom_ibegin="10" zoom_jbegin="10" zoom_ni="1" zoom_nj="1" /> 
    78         <!--   Eq section   --> 
    89         <domain id="EqT" zoom_ibegin="1" zoom_jbegin="0000" zoom_ni="0000" zoom_nj="1" /> 
     
    168169      </domain_group> 
    169170 
    170       <domain_group id="scalarpoint" long_name="scalar" zoom_ibegin="1" zoom_jbegin="1" zoom_ni="1" zoom_nj="1"> 
    171          <domain id="1point"/> 
    172          <domain id="globalscalar" /> 
     171      <domain_group id="scalarpoint">  
     172         <domain id="scalarpoint" long_name="scalar"/>  
     173         <!--  
     174         <domain id="1point" zoom_ibegin="1" zoom_jbegin="1" zoom_ni="1" zoom_nj="1" />  
     175         -->  
    173176      </domain_group> 
    174177 
  • trunk/NEMOGCM/CONFIG/SHARED/field_def.xml

    r5415 r5426  
    460460      <!-- scalar variables available with key_diaar5 --> 
    461461 
    462       <field_group id="scalar"  domain_ref="globalscalar" > 
     462      <field_group id="scalar"  domain_ref="1point" > 
    463463         <field id="voltot"     long_name="global total volume"                          standard_name="sea_water_volume"                               unit="m3"   /> 
    464464         <field id="sshtot"     long_name="global mean ssh"                              standard_name="global_average_sea_level_change"                unit="m"    /> 
     
    468468         <field id="temptot"    long_name="global mean temperature"                      standard_name="sea_water_potential_temperature"                unit="degC" /> 
    469469         <field id="saltot"     long_name="global mean salinity"                         standard_name="sea_water_salinity"                             unit="1e-3" /> 
    470          <field id="fram_trans" long_name="Sea Ice Mass Transport Through Fram Strait"   standard_name="sea_ice_transport_across_line"                  unit="kg/s"   domain_ref="1point" /> 
     470         <field id="fram_trans" long_name="Sea Ice Mass Transport Through Fram Strait"   standard_name="sea_ice_transport_across_line"                  unit="kg/s" /> 
    471471 
    472472          <!-- available with ln_diahsb --> 
     
    489489      <!-- LIM3 scalar variables --> 
    490490 
    491       <field_group id="SBC_scalar"  domain_ref="globalscalar" > 
     491      <field_group id="SBC_scalar"  domain_ref="1point" > 
    492492         <!-- available with ln_limdiaout --> 
    493493         <field id="ibgvoltot"    long_name="global mean ice volume"                                 unit="km3"        /> 
     
    920920     </field_group> 
    921921 
    922      <field_group id="PISCES_scalar"  domain_ref="globalscalar" > 
     922     <field_group id="PISCES_scalar"  domain_ref="1point" > 
    923923       <field id="pno3tot"         long_name="global mean nitrate concentration"                  unit="mol/m3"   /> 
    924924       <field id="ppo4tot"         long_name="global mean phosphorus concentration"               unit="mol/m3"   /> 
  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r5415 r5426  
    11041104      CHARACTER(LEN=*), INTENT(in) ::   cdname 
    11051105      REAL(wp)        , INTENT(in) ::   pfield0d 
     1106      REAL(wp)        , DIMENSION(jpi,jpj) ::   zz     ! masson 
    11061107#if defined key_iomput 
    1107       CALL xios_send_field(cdname, (/pfield0d/))  
     1108      zz(:,:)=pfield0d 
     1109      CALL xios_send_field(cdname, zz) 
     1110      !CALL xios_send_field(cdname, (/pfield0d/))  
    11081111#else 
    11091112      IF( .FALSE. )   WRITE(numout,*) cdname, pfield0d   ! useless test to avoid compilation warnings 
     
    14451448      !! 
    14461449      !!---------------------------------------------------------------------- 
    1447       REAL(wp), DIMENSION(1)   ::   zz = 0. 
    1448       REAL(wp), DIMENSION(4,1) ::   z_lat, z_lon 
     1450      REAL(wp), DIMENSION(1)   ::   zz = 1. 
    14491451      !!---------------------------------------------------------------------- 
    14501452      CALL iom_set_domain_attr('scalarpoint', ni_glo=jpnij, nj_glo=1, ibegin=narea, jbegin=1, ni=1, nj=1) 
    1451       CALL iom_set_domain_attr('scalarpoint', data_dim=2, data_ibegin = 0, data_ni = 1, data_jbegin = 0, data_nj = 1) 
     1453      CALL iom_set_domain_attr('scalarpoint', data_dim=2, data_ibegin = 1, data_ni = 1, data_jbegin = 1, data_nj = 1) 
    14521454       
    1453       z_lon(1,:) = MINVAL(glamt) ; z_lon(2,:) = MAXVAL(glamt) ; z_lon(3,:) = MAXVAL(glamt) ; z_lon(4,:) = MINVAL(glamt) 
    1454       z_lat(1,:) = MINVAL(gphit) ; z_lat(2,:) = MINVAL(gphit) ; z_lat(3,:) = MAXVAL(gphit) ; z_lat(4,:) = MAXVAL(gphit) 
    1455  
    1456       IF( lk_mpp ) THEN 
    1457          CALL mpp_min( z_lon(1,1) ) ; CALL mpp_min( z_lon(4,1) ) ; CALL mpp_max( z_lon(2,1) ) ; CALL mpp_max( z_lon(3,1) ) 
    1458          CALL mpp_min( z_lat(1,1) ) ; CALL mpp_min( z_lat(2,1) ) ; CALL mpp_max( z_lat(3,1) ) ; CALL mpp_max( z_lat(4,1) ) 
    1459       ENDIF 
    1460  
    1461       CALL iom_set_domain_attr('globalscalar', lonvalue=zz, latvalue=zz, bounds_lon=z_lon, bounds_lat=z_lat, nvertex=4) 
    1462  
    14631455      zz=REAL(narea,wp) 
    1464       CALL iom_set_domain_attr('1point', lonvalue=zz, latvalue=zz) 
     1456      CALL iom_set_domain_attr('scalarpoint', lonvalue=zz, latvalue=zz) 
    14651457 
    14661458   END SUBROUTINE set_scalar 
Note: See TracChangeset for help on using the changeset viewer.