10
0
mirror of https://gitlab.com/scemama/irpf90.git synced 2024-11-09 07:33:43 +01:00

irp_finalize

Version:1.1.74
This commit is contained in:
Anthony Scemama 2011-06-01 16:56:56 +02:00
parent b4e93c05da
commit 57707b3922
2 changed files with 3 additions and 3 deletions

View File

@ -43,9 +43,9 @@ def create():
var = variables[v]
if var.is_touched:
out += var.toucher
var2 = variables[v]
if var2.dim != []:
if var.dim != []:
finalize += " if (allocated(%s)) then\n"%v
finalize += " %s_is_built = .False.\n"%var.same_as
finalize += " deallocate(%s)\n"%v
finalize += " endif\n"
finalize += "end\n"

View File

@ -1 +1 @@
version = "1.1.73"
version = "1.1.74"