Changeset 3737 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO
- Timestamp:
- 2012-12-13T20:55:08+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r3732 r3737 50 50 PRIVATE iom_p1d, iom_p2d, iom_p3d 51 51 #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 53 54 # endif 54 55 … … 115 116 116 117 ! 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 ) 121 122 # 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) ) 123 124 # endif 124 125 … … 1032 1033 1033 1034 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 1034 1049 1035 1050
Note: See TracChangeset
for help on using the changeset viewer.