Hi.
Can I modify a variable, which is in module_bl_ysu.F script, in specific time steps?
To get this, I modified the script-"module_bl_ysu.F" by using XTIME as follows:
<< original >>
zfac(i,k) = min(max((1.-(zq(i,k+1)-zl1(i))/(hpbl(i)-zl1(i))),zfmin),1.)
<< modified >>
IF (XTIME .GE. 1440 .and. XTIME .LE. 2100) then
zfac(i,k) = min(max((1.-(zq(i,k+1)-zl1(i))/ (10.0*(hpbl(i)-zl1(i))) ),zfmin),1.)
ELSE
zfac(i,k) = min(max((1.-(zq(i,k+1)-zl1(i))/(hpbl(i)-zl1(i))),zfmin),1.)
ENDIF
(I added XTIME to "module_bl_ysu.F" script)
and recompiled.
But, It didn't work as I expected.
What I expected was a change in the value of "zfac" in specific time steps (such as 'XTIME .GE. 1440 .and. XTIME .LE. 2100') but the results showed a change throughout the all time steps.
I'd really appreciate it if you could give me a hint or advice on this.
Thanks in advance.
Can I modify a variable, which is in module_bl_ysu.F script, in specific time steps?
To get this, I modified the script-"module_bl_ysu.F" by using XTIME as follows:
<< original >>
zfac(i,k) = min(max((1.-(zq(i,k+1)-zl1(i))/(hpbl(i)-zl1(i))),zfmin),1.)
<< modified >>
IF (XTIME .GE. 1440 .and. XTIME .LE. 2100) then
zfac(i,k) = min(max((1.-(zq(i,k+1)-zl1(i))/ (10.0*(hpbl(i)-zl1(i))) ),zfmin),1.)
ELSE
zfac(i,k) = min(max((1.-(zq(i,k+1)-zl1(i))/(hpbl(i)-zl1(i))),zfmin),1.)
ENDIF
(I added XTIME to "module_bl_ysu.F" script)
and recompiled.
But, It didn't work as I expected.
What I expected was a change in the value of "zfac" in specific time steps (such as 'XTIME .GE. 1440 .and. XTIME .LE. 2100') but the results showed a change throughout the all time steps.
I'd really appreciate it if you could give me a hint or advice on this.
Thanks in advance.