Changeset 886 for IOIPSL/trunk
- Timestamp:
- 02/08/10 10:47:55 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/fliocom.f90
r881 r886 205 205 !! SUBROUTINE fliodefv & 206 206 !! & (f_i,v_n,[v_d],v_t, & 207 !! & axis,standard_name,long_name,units,valid_min,valid_max) 207 !! & axis,standard_name,long_name,units, & 208 !! & valid_min,valid_max,fillvalue) 208 209 !! 209 210 !! INPUT … … 227 228 !! (C) axis,standard_name,long_name,units : Attributes 228 229 !! (axis should be used only for coordinates) 229 !! (R) valid_min,valid_max : Attributes230 !! (R) valid_min,valid_max,fillvalue : Attributes 230 231 !!-------------------------------------------------------------------- 231 232 MODULE PROCEDURE & … … 1287 1288 SUBROUTINE fliodv_r0d & 1288 1289 & (f_i,v_n,v_t, & 1289 & axis,standard_name,long_name,units,valid_min,valid_max )1290 & axis,standard_name,long_name,units,valid_min,valid_max,fillvalue) 1290 1291 !--------------------------------------------------------------------- 1291 1292 IMPLICIT NONE … … 1296 1297 CHARACTER(LEN=*),OPTIONAL,INTENT(IN) :: & 1297 1298 & axis,standard_name,long_name,units 1298 REAL,OPTIONAL,INTENT(IN) :: valid_min,valid_max 1299 REAL,OPTIONAL,INTENT(IN) :: valid_min,valid_max,fillvalue 1299 1300 !--------------------------------------------------------------------- 1300 1301 CALL flio_udv & 1301 1302 & (f_i,0,v_n,(/0/),v_t, & 1302 & axis,standard_name,long_name,units,valid_min,valid_max )1303 & axis,standard_name,long_name,units,valid_min,valid_max,fillvalue) 1303 1304 !------------------------ 1304 1305 END SUBROUTINE fliodv_r0d … … 1306 1307 SUBROUTINE fliodv_rnd & 1307 1308 & (f_i,v_n,v_d,v_t, & 1308 & axis,standard_name,long_name,units,valid_min,valid_max )1309 & axis,standard_name,long_name,units,valid_min,valid_max,fillvalue) 1309 1310 !--------------------------------------------------------------------- 1310 1311 IMPLICIT NONE … … 1316 1317 CHARACTER(LEN=*),OPTIONAL,INTENT(IN) :: & 1317 1318 & axis,standard_name,long_name,units 1318 REAL,OPTIONAL,INTENT(IN) :: valid_min,valid_max 1319 REAL,OPTIONAL,INTENT(IN) :: valid_min,valid_max,fillvalue 1319 1320 !--------------------------------------------------------------------- 1320 1321 CALL flio_udv & 1321 1322 & (f_i,SIZE(v_d),v_n,v_d,v_t, & 1322 & axis,standard_name,long_name,units,valid_min,valid_max )1323 & axis,standard_name,long_name,units,valid_min,valid_max,fillvalue) 1323 1324 !------------------------ 1324 1325 END SUBROUTINE fliodv_rnd … … 1326 1327 SUBROUTINE flio_udv & 1327 1328 & (f_i,n_d,v_n,v_d,v_t, & 1328 & axis,standard_name,long_name,units,valid_min,valid_max )1329 & axis,standard_name,long_name,units,valid_min,valid_max,fillvalue) 1329 1330 !--------------------------------------------------------------------- 1330 1331 IMPLICIT NONE … … 1336 1337 CHARACTER(LEN=*),OPTIONAL,INTENT(IN) :: & 1337 1338 & axis,standard_name,long_name,units 1338 REAL,OPTIONAL,INTENT(IN) :: valid_min,valid_max 1339 REAL,OPTIONAL,INTENT(IN) :: valid_min,valid_max,fillvalue 1339 1340 !- 1340 1341 INTEGER :: f_e,m_k,i_v,i_rc,ii,idd … … 1460 1461 CALL ipslerr (2,'fliodefv', & 1461 1462 & 'Variable '//TRIM(v_n),'attribute valid_max', & 1463 & 'not supported for this external type') 1464 END SELECT 1465 ENDIF 1466 IF (PRESENT(fillvalue)) THEN 1467 SELECT CASE (m_k) 1468 CASE(flio_i1,flio_i2) 1469 i_rc = NF90_PUT_ATT(f_e,i_v,'_FillValue',NINT(fillvalue,KIND=i_2)) 1470 CASE(flio_i4) 1471 i_rc = NF90_PUT_ATT(f_e,i_v,'_FillValue',NINT(fillvalue,KIND=i_4)) 1472 CASE(flio_r4) 1473 i_rc = NF90_PUT_ATT(f_e,i_v,'_FillValue',REAL(fillvalue,KIND=r_4)) 1474 CASE(flio_r8) 1475 i_rc = NF90_PUT_ATT(f_e,i_v,'_FillValue',REAL(fillvalue,KIND=r_8)) 1476 CASE DEFAULT 1477 CALL ipslerr (2,'fliodefv', & 1478 & 'Variable '//TRIM(v_n),'attribute fillvalue', & 1462 1479 & 'not supported for this external type') 1463 1480 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.