It has been awhile but I think that with the Compaq Visual Fortran compiler (which we were using to develop Trnsys16) those temporary arrays were automatically deallocated on exiting the subroutine. The same was not true with the Intel Visual Fortran compiler
(which we used to develop Trnsys17). In v17 those arrays are explicitly deallocated (as you have done).
Hello All,
I am not sure if this has been posted before or solved in trnsys 17.
I use routines that call the trnsys dynamic data routine to read in data from a file and interpolate data. Depending on the mode of the calling type (e.g. heat pump in heating or cooling mode) the data may be read several times during the
simulation as the calling type may wish to reread the correct data if the mode has changed.
Now, when this happens I get an error:
Severe(151):allocatable array is already allocated
I could solve this by deallocating the temporary arrays in the dynamic data routine:
SUBROUTINE DYNAMICDATA(LUdd,NINDdd,NXdd,NYdd,Xdd,Ydd,INFO,*)
C**********************************************************************************************
C THIS SUBROUTINE IS USED TO READ AND INTERPOLATE DATA FROM FREE FORMAT DATA FILES IN UP TO 4
C DIMENSIONS.
C
C WRITTEN BY: D. Bradley at CSTB in Spring 2001
C
C REVISION HISTORY
C 2005.10.10 - DEB: changed calls to MESSAGES so that UNIT and TYPE number are now reported.
C**********************************************************************************************
! Copyright © 2005 Solar Energy Laboratory, University of Wisconsin-Madison. All rights reserved.
!export this subroutine for its use in external DLLs.
!DEC$ATTRIBUTES DLLEXPORT :: DYNAMICDATA
…..
…..
…..
C save the previous array sizes - these will be used on the next call to make
C that the array always grows, never tries to shrink
OLDNX1dd=SIZE(X1dd,1)
OLDNX2dd=SIZE(X2dd,1)
OLDNX3dd=SIZE(X3dd,1)
OLDNX4dd=SIZE(X4dd,1)
OLDNLUdd=NLUdd
OLDNYMAXdd=NYMAXdd
C HW TO PREVENT ERRORS CLEAN UP THE TEMPORARY ARRAYS:
DEALLOCATE(X1TEMPdd)
DEALLOCATE(X2TEMPdd)
DEALLOCATE(X3TEMPdd)
DEALLOCATE(X4TEMPdd)
DEALLOCATE(LUSTORTEMPdd)
DEALLOCATE(YDATATEMPdd)
DEALLOCATE(DATAINTEMPdd)
DEALLOCATE(IPTTEMPdd)
END
Should this not have been done anyway, or am I missing something and will this actually cause problems?
Thanks!
Henk Witte
Groenholland Geo-energysystems
Valschermkade 26
1059CD Amsterdam
T: +31 (0)20 6159050
M: +31 (0)628176535
E:
henk.witte@groenholland.nl
_______________________________________________
TRNSYS-users mailing list
TRNSYS-users@lists.onebuilding.org
http://lists.onebuilding.org/listinfo.cgi/trnsys-users-onebuilding.org