New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5426 for trunk/NEMOGCM/NEMO/OPA_SRC – NEMO

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

Revert the scalar variable domain change from [5415].

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.