Changeset 6063
- Timestamp:
- 2015-12-16T12:01:12+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5918_nemo_v3_6_STABLE_XIOS2/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r5928 r6063 1215 1215 CALL xios_set_domain_attr ( cdid, ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, jbegin=jbegin, ni=ni, nj=nj, & 1216 1216 & data_dim=data_dim, data_ibegin=data_ibegin, data_ni=data_ni, data_jbegin=data_jbegin, data_nj=data_nj , & 1217 & lonvalue_1D=lonvalue, latvalue_1D=latvalue, mask_2D=mask, nvertex=nvertex, bounds_lon_1D=bounds_lon, 1217 & lonvalue_1D=lonvalue, latvalue_1D=latvalue, mask_2D=mask, nvertex=nvertex, bounds_lon_1D=bounds_lon, & 1218 1218 & bounds_lat_1D=bounds_lat, area=area, type='curvilinear') 1219 1219 ENDIF … … 1221 1221 CALL xios_set_domaingroup_attr( cdid, ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, jbegin=jbegin, ni=ni, nj=nj, & 1222 1222 & data_dim=data_dim, data_ibegin=data_ibegin, data_ni=data_ni, data_jbegin=data_jbegin, data_nj=data_nj , & 1223 & lonvalue_1D=lonvalue, latvalue_1D=latvalue, mask_2D=mask, nvertex=nvertex, bounds_lon_1D=bounds_lon, 1223 & lonvalue_1D=lonvalue, latvalue_1D=latvalue, mask_2D=mask, nvertex=nvertex, bounds_lon_1D=bounds_lon, & 1224 1224 & bounds_lat_1D=bounds_lat, area=area, type='curvilinear' ) 1225 1225 ENDIF … … 1580 1580 REAL(wp) ,DIMENSION( 9) :: zlatpira ! latitudes of pirata moorings 1581 1581 #if defined key_xios2 1582 TYPE(xios_duration) :: freq_op, freq_offset1582 TYPE(xios_duration) :: f_op, f_of 1583 1583 #endif 1584 1584 … … 1587 1587 ! frequency of the call of iom_put (attribut: freq_op) 1588 1588 #if ! defined key_xios2 1589 WRITE(cl1,'(i1)') 1 ; CALL iom_set_field_attr('field_definition', freq_op =cl1//'ts', freq_offset='0ts')1590 WRITE(cl1,'(i1)') nn_fsbc ; CALL iom_set_field_attr('SBC' , freq_op =cl1//'ts', freq_offset='0ts')1591 WRITE(cl1,'(i1)') nn_fsbc ; CALL iom_set_field_attr('SBC_scalar' , freq_op =cl1//'ts', freq_offset='0ts')1592 WRITE(cl1,'(i1)') nn_dttrc ; CALL iom_set_field_attr('ptrc_T' , freq_op =cl1//'ts', freq_offset='0ts')1593 WRITE(cl1,'(i1)') nn_dttrc ; CALL iom_set_field_attr('diad_T' , freq_op =cl1//'ts', freq_offset='0ts')1594 #else 1595 f req_op%timestep=1 ; freq_offset%timestep=0 ; CALL iom_set_field_attr('field_definition', freq_op = freq_op, freq_offset=freq_offset)1596 f req_op%timestep=nn_fsbc ; freq_offset%timestep=0 ; CALL iom_set_field_attr('SBC' , freq_op = freq_op, freq_offset=freq_offset)1597 f req_op%timestep=nn_fsbc ; freq_offset%timestep=0 ; CALL iom_set_field_attr('SBC_scalar' , freq_op = freq_op, freq_offset=freq_offset)1598 f req_op%timestep=nn_dttrc ; freq_offset%timestep=0 ; CALL iom_set_field_attr('ptrc_T' , freq_op = freq_op, freq_offset=freq_offset)1599 f req_op%timestep=nn_dttrc ; freq_offset%timestep=0 ; CALL iom_set_field_attr('diad_T' , freq_op = freq_op, freq_offset=freq_offset)1589 WRITE(cl1,'(i1)') 1 ; CALL iom_set_field_attr('field_definition', freq_op=cl1//'ts', freq_offset='0ts') 1590 WRITE(cl1,'(i1)') nn_fsbc ; CALL iom_set_field_attr('SBC' , freq_op=cl1//'ts', freq_offset='0ts') 1591 WRITE(cl1,'(i1)') nn_fsbc ; CALL iom_set_field_attr('SBC_scalar' , freq_op=cl1//'ts', freq_offset='0ts') 1592 WRITE(cl1,'(i1)') nn_dttrc ; CALL iom_set_field_attr('ptrc_T' , freq_op=cl1//'ts', freq_offset='0ts') 1593 WRITE(cl1,'(i1)') nn_dttrc ; CALL iom_set_field_attr('diad_T' , freq_op=cl1//'ts', freq_offset='0ts') 1594 #else 1595 f_op%timestep = 1 ; f_of%timestep = 0 ; CALL iom_set_field_attr('field_definition', freq_op=f_op, freq_offset=f_of) 1596 f_op%timestep = nn_fsbc ; f_of%timestep = 0 ; CALL iom_set_field_attr('SBC' , freq_op=f_op, freq_offset=f_of) 1597 f_op%timestep = nn_fsbc ; f_of%timestep = 0 ; CALL iom_set_field_attr('SBC_scalar' , freq_op=f_op, freq_offset=f_of) 1598 f_op%timestep = nn_dttrc ; f_of%timestep = 0 ; CALL iom_set_field_attr('ptrc_T' , freq_op=f_op, freq_offset=f_of) 1599 f_op%timestep = nn_dttrc ; f_of%timestep = 0 ; CALL iom_set_field_attr('diad_T' , freq_op=f_op, freq_offset=f_of) 1600 1600 #endif 1601 1601
Note: See TracChangeset
for help on using the changeset viewer.