volgrid6d_init

volgrid6d_init() subroutine volgrid6d_init ( type(volgrid6d)  this, type(griddim_def), optional  griddim, integer, intent(in), optional  time_definition, character(len=*), intent(in), optional  categoryappend  ) 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 this object to be initialized griddim grid descriptor [in] time_definition 0=time is reference time; 1=time is validity time [in] categoryappend append this suffix to log4fortran namespace category Definizione alla linea 372 del file volgrid6d_class.F90. ! this is not really needed if we can check other flags for a full ! field missing values IF (linivol) this%voldati = rmiss this%voldati = rmiss ENDIF ENDIF IF (.NOT.ASSOCIATED(this%gaid)) THEN #ifdef DEBUG CALL l4f_category_log(this%category,l4f_debug,"alloc gaid volume") #endif ALLOCATE(this%gaid(SIZE(this%level), SIZE(this%time), & SIZE(this%timerange), SIZE(this%var)),stat=stallo) IF (stallo /= 0)THEN CALL l4f_category_log(this%category,l4f_fatal,"allocating memory") CALL raise_fatal_error() ENDIF IF (linivol) THEN !!$ DO i=1 ,SIZE(this%gaid,1) !!$ DO ii=1 ,SIZE(this%gaid,2) !!$ DO iii=1 ,SIZE(this%gaid,3) !!$ DO iiii=1 ,SIZE(this%gaid,4) !!$ this%gaid(i,ii,iii,iiii) = grid_id_new() ! optimize? !!$ ENDDO !!$ ENDDO !!$ ENDDO !!$ ENDDO this%gaid = grid_id_new() ENDIF ENDIF