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 3737 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO – NEMO

Ignore:
Timestamp:
2012-12-13T20:55:08+01:00 (11 years ago)
Author:
smasson
Message:

dev_MERGE_2012: update iom for vertical zooms with xios

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r3732 r3737  
    5050   PRIVATE iom_p1d, iom_p2d, iom_p3d 
    5151#if defined key_iomput 
    52    PRIVATE iom_set_domain_attr, iom_set_field_attr, iom_set_file_attr, set_grid, set_scalar, set_xmlatt, set_mooring 
     52   PRIVATE iom_set_domain_attr, iom_set_axis_attr, iom_set_field_attr, iom_set_file_attr 
     53   PRIVATE set_grid, set_scalar, set_xmlatt, set_mooring 
    5354# endif 
    5455 
     
    115116 
    116117      ! vertical grid definition 
    117       CALL xios_set_axis_attr("deptht",size=size(gdept_0),value=gdept_0) 
    118       CALL xios_set_axis_attr("depthu",size=size(gdept_0),value=gdept_0) 
    119       CALL xios_set_axis_attr("depthv",size=size(gdept_0),value=gdept_0) 
    120       CALL xios_set_axis_attr("depthw",size=size(gdepw_0),value=gdepw_0) 
     118      CALL iom_set_axis_attr( "deptht", gdept_0 ) 
     119      CALL iom_set_axis_attr( "depthu", gdept_0 ) 
     120      CALL iom_set_axis_attr( "depthv", gdept_0 ) 
     121      CALL iom_set_axis_attr( "depthw", gdepw_0 ) 
    121122# if defined key_floats 
    122       CALL xios_set_axis_attr("nfloat",size=nfloat,value=(ji, ji=1,nfloat)) 
     123      CALL iom_set_axis_attr( "nfloat", (ji, ji=1,nfloat) ) 
    123124# endif 
    124125       
     
    10321033 
    10331034   END SUBROUTINE iom_set_domain_attr 
     1035 
     1036 
     1037   SUBROUTINE iom_set_axis_attr( cdname, paxis ) 
     1038      CHARACTER(LEN=*)      , INTENT(in) ::   cdname 
     1039      REAL(wp), DIMENSION(:), INTENT(in) ::   paxis 
     1040 
     1041      IF ( xios_is_valid_axis(TRIM(cdname)) ) THEN 
     1042         CALL xios_set_axis_attr( cdname, size=size(paxis),value=paxis ) 
     1043      ENDIF 
     1044      IF ( xios_is_valid_axisgroup(TRIM(cdname)) ) THEN 
     1045         CALL xios_set_axisgroup_attr( cdname, size=size(paxis),value=paxis ) 
     1046      ENDIF 
     1047 
     1048   END SUBROUTINE iom_set_axis_attr 
    10341049 
    10351050 
Note: See TracChangeset for help on using the changeset viewer.