libsim  Versione6.3.0

◆ volgrid6d_init()

subroutine volgrid6d_class::volgrid6d_init ( type(volgrid6d this,
type(griddim_def), optional  griddim,
integer, intent(in), optional  time_definition,
character(len=*), intent(in), optional  categoryappend 
)
private

Constructor, it creates a new instance of the object.

The constructor should be explicitly used only in rare cases, volgrid6d objects are usually created through the import interface.

Parametri
thisobject to be initialized
griddimgrid descriptor
[in]time_definition0=time is reference time; 1=time is validity time
[in]categoryappendappend this suffix to log4fortran namespace category

Definizione alla linea 387 del file volgrid6d_class.F90.

387  CALL l4f_category_log(this%category,l4f_debug,"alloc gaid volume")
388 #endif
389  ALLOCATE(this%gaid(SIZE(this%level), SIZE(this%time), &
390  SIZE(this%timerange), SIZE(this%var)),stat=stallo)
391  IF (stallo /= 0)THEN
392  CALL l4f_category_log(this%category,l4f_fatal,"allocating memory")
393  CALL raise_fatal_error()
394  ENDIF
395 
396  IF (linivol) THEN
397 !!$ DO i=1 ,SIZE(this%gaid,1)
398 !!$ DO ii=1 ,SIZE(this%gaid,2)
399 !!$ DO iii=1 ,SIZE(this%gaid,3)
400 !!$ DO iiii=1 ,SIZE(this%gaid,4)
401 !!$ this%gaid(i,ii,iii,iiii) = grid_id_new() ! optimize?
402 !!$ ENDDO
403 !!$ ENDDO
404 !!$ ENDDO
405 !!$ ENDDO
406 
407  this%gaid = grid_id_new()
408  ENDIF
409  ENDIF
410 
411 ELSE
412  CALL l4f_category_log(this%category,l4f_fatal,'volgrid6d_alloc_vol: &
413  &trying to allocate a volume with an invalid or unspecified horizontal grid')
414  CALL raise_fatal_error()
415 ENDIF
416 
417 END SUBROUTINE volgrid6d_alloc_vol
418 
419 

Generated with Doxygen.