libsim  Versione6.3.0

◆ vol7d_fill_data()

subroutine vol7d_class_compute::vol7d_fill_data ( type(vol7d), intent(inout)  this,
type(timedelta), intent(in)  step,
type(datetime), intent(in), optional  start,
type(datetime), intent(in), optional  stopp,
type(timedelta), intent(in), optional  tolerance 
)

Fill data volume Nearest data in time is set in the time coordinate.

Take in account istantaneous values only.

Parametri
[in,out]thisdata volume to elaborate
[in]stepinterval in time where to fill data
[in]startstart time where to fill
[in]stoppstop time where to fill
[in]tolerancetolerance in time to find data to fill (excluding extreme) (default to step)

Definizione alla linea 1438 del file vol7d_class_compute.F90.

1438  that%level%l2 = imiss
1439  end where
1440 
1441 case("c")
1442 
1443  where (maschera)
1444  that%level%level1 = 100
1445  that%level%l1 = int(realdat(that%voldatic(1,1,:,1,ind,1),that%dativar%c(ind)))
1446  that%level%level2 = imiss
1447  that%level%l2 = imiss
1448  end where
1449 
1450 end select
1451 
1452 deallocate(ltime)
1453 deallocate(ltimerange)
1454 deallocate(lana)
1455 deallocate(lnetwork)
1456 
1457 END SUBROUTINE vol7d_normalize_vcoord
1458 
1459 
1460 !!$!> Metodo per calcolare variabili derivate.
1461 !!$!! TO DO !!
1462 !!$SUBROUTINE vol7d_compute_var(this,that,var)
1463 !!$TYPE(vol7d),INTENT(INOUT) :: this !< oggetto da normalizzare
1464 !!$TYPE(vol7d),INTENT(OUT) :: that !< oggetto normalizzato
1465 !!$
1466 !!$character(len=1) :: type
1467 !!$TYPE(vol7d_var),intent(in) :: var
1468 
1469 
1470 !!$call init(var, btable="B10004") ! Pressure
1471 !!$type=cmiss
1472 !!$call vol7d_varvect_index(that%dativar,var , type=type,index_v=ind)
1473 !!$
1474 !!$select case (type)
1475 !!$
1476 !!$case("d")
1477 !!$
1478 !!$ where (that%level%level1 == 105.and.that%level%level2 == 105)
1479 !!$ that%level%level1 = 100
1480 !!$ that%level%l1 = realdat(that%voldatid(1,1,:,1,ind,1),that%dativar%d(ind))
1481 !!$ that%level%level2 = imiss
1482 !!$ that%level%l2 = imiss
1483 !!$ end where
1484 !!$
1485 !!$case("r")
1486 !!$
1487 !!$ where (that%level%level1 == 105.and.that%level%level2 == 105)
1488 !!$ that%level%level1 = 100
1489 !!$ that%level%l1 = realdat(that%voldatir(1,1,:,1,ind,1),that%dativar%r(ind))
1490 !!$ that%level%level2 = imiss
1491 !!$ that%level%l2 = imiss
1492 !!$ end where
1493 !!$
1494 !!$case("i")
1495 !!$
1496 !!$ where (that%level%level1 == 105.and.that%level%level2 == 105)
1497 !!$ that%level%level1 = 100
1498 !!$ that%level%l1 = realdat(that%voldatii(1,1,:,1,ind,1),that%dativar%i(ind))
1499 !!$ that%level%level2 = imiss
1500 !!$ that%level%l2 = imiss
1501 !!$ end where
1502 !!$
1503 !!$case("b")
1504 !!$
1505 !!$ where (that%level%level1 == 105.and.that%level%level2 == 105)
1506 !!$ that%level%level1 = 100
1507 !!$ that%level%l1 = realdat(that%voldatib(1,1,:,1,ind,1),that%dativar%b(ind))
1508 !!$ that%level%level2 = imiss
1509 !!$ that%level%l2 = imiss
1510 !!$ end where
1511 !!$
1512 !!$case("c")
1513 !!$
1514 !!$ where (that%level%level1 == 105.and.that%level%level2 == 105)
1515 !!$ that%level%level1 = 100
1516 !!$ that%level%l1 = realdat(that%voldatic(1,1,:,1,ind,1),that%dativar%c(ind))
1517 !!$ that%level%level2 = imiss
1518 !!$ that%level%l2 = imiss
1519 !!$ end where
1520 !!$
1521 !!$end select
1522 

Generated with Doxygen.