Changeset 4689 for trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
- Timestamp:
- 2014-06-25T01:40:18+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r4650 r4689 32 32 USE trc_oce, ONLY : nn_dttrc ! !: frequency of step on passive tracers 33 33 USE icb_oce, ONLY : nclasses, class_num ! !: iceberg classes 34 USE par_ice 34 35 USE domngb ! ocean space and time domain 35 36 USE phycst ! physical constants … … 49 50 #endif 50 51 PUBLIC iom_init, iom_swap, iom_open, iom_close, iom_setkt, iom_varid, iom_get, iom_gettime, iom_rstput, iom_put 51 PUBLIC iom_getatt, iom_ context_finalize52 PUBLIC iom_getatt, iom_use, iom_context_finalize 52 53 53 54 PRIVATE iom_rp0d, iom_rp1d, iom_rp2d, iom_rp3d … … 143 144 CALL iom_set_axis_attr( "nfloat", (/ (REAL(ji,wp), ji=1,nfloat) /) ) 144 145 # endif 146 #if defined key_lim3 147 CALL iom_set_axis_attr( "ncatice", (/ (REAL(ji,wp), ji=1,jpl) /) ) 148 #endif 145 149 CALL iom_set_axis_attr( "icbcla", class_num ) 146 150 … … 1015 1019 CHARACTER(LEN=*), INTENT(in) :: cdname 1016 1020 REAL(wp) , INTENT(in) :: pfield0d 1021 REAL(wp) , DIMENSION(jpi,jpj) :: zz ! masson 1017 1022 #if defined key_iomput 1018 CALL xios_send_field(cdname, (/pfield0d/)) 1023 zz(:,:)=pfield0d 1024 CALL xios_send_field(cdname, zz) 1025 !CALL xios_send_field(cdname, (/pfield0d/)) 1019 1026 #else 1020 1027 IF( .FALSE. ) WRITE(numout,*) cdname, pfield0d ! useless test to avoid compilation warnings … … 1207 1214 !! 1208 1215 !!---------------------------------------------------------------------- 1209 REAL(wp), DIMENSION(1 ,1) :: zz = 1.1216 REAL(wp), DIMENSION(1) :: zz = 1. 1210 1217 !!---------------------------------------------------------------------- 1211 1218 CALL iom_set_domain_attr('scalarpoint', ni_glo=jpnij, nj_glo=1, ibegin=narea, jbegin=1, ni=1, nj=1) 1212 CALL iom_set_domain_attr('scalarpoint', data_dim=1) 1213 CALL iom_set_domain_attr('scalarpoint', lonvalue=(/ zz /), latvalue=(/ zz /)) 1219 CALL iom_set_domain_attr('scalarpoint', data_dim=2, data_ibegin = 1, data_ni = 1, data_jbegin = 1, data_nj = 1) 1220 zz=REAL(narea,wp) 1221 CALL iom_set_domain_attr('scalarpoint', lonvalue=zz, latvalue=zz) 1214 1222 1215 1223 END SUBROUTINE set_scalar … … 1499 1507 1500 1508 #endif 1509 1510 LOGICAL FUNCTION iom_use( cdname ) 1511 CHARACTER(LEN=*), INTENT(in) :: cdname 1512 #if defined key_iomput 1513 iom_use = xios_field_is_active( cdname ) 1514 #else 1515 iom_use = .FALSE. 1516 #endif 1517 END FUNCTION iom_use 1501 1518 1502 1519 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.