Hello everyone
I want to adjust the wind stress by define WIND_MINUS_CURRENT
The following error was encountered at compile time:
bulk_flux.f90(322): error #6780: A dummy argument with the INTENT(IN) attribute shall not be defined nor become undefined. [UWIND]
Uwind(i,j)=Uwind(i,j)-0.5_r8* &
-----^
bulk_flux.f90(324): error #6780: A dummy argument with the INTENT(IN) attribute shall not be defined nor become undefined. [VWIND]
Vwind(i,j)=Vwind(i,j)-0.5_r8* &
then i change Uwind INTENT(OUT) to INTENT(INOUTOUT)
The following error was encountered at running time:
forrtl: severe (194): Run-Time Check Failure. The variable 'bulk_flux_mod_mp_bulk_flux_tile_$J' is being used in 'bulk_flux.f90(322,6)' without being defined
error in define WIND_MINUS_CURRENT
-
- Posts: 10
- Joined: Fri Feb 26, 2021 2:20 pm
- Location: Shantou University
Re: error in define WIND_MINUS_CURRENT
i think you are using an older version of code.
if you look here: https://github.com/myroms/roms/blob/dev ... ulk_flux.F
We do:
Uair(i,j)=Uwind(i,j)- &
& 0.5_r8*(u(i,j,N(ng),nrhs)+u(i+1,j,N(ng),nrhs))
not
Uwind(i,j)=Uwind(i,j)-0.5_r8* ...
can you do an update.
thanks
j
if you look here: https://github.com/myroms/roms/blob/dev ... ulk_flux.F
We do:
Uair(i,j)=Uwind(i,j)- &
& 0.5_r8*(u(i,j,N(ng),nrhs)+u(i+1,j,N(ng),nrhs))
not
Uwind(i,j)=Uwind(i,j)-0.5_r8* ...
can you do an update.
thanks
j