error in define WIND_MINUS_CURRENT

General scientific issues regarding ROMS

Moderators: arango, robertson

Post Reply
Message
Author
cheng_dada
Posts: 10
Joined: Fri Feb 26, 2021 2:20 pm
Location: Shantou University

error in define WIND_MINUS_CURRENT

#1 Unread post by cheng_dada »

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

jcwarner
Posts: 1186
Joined: Wed Dec 31, 2003 6:16 pm
Location: USGS, USA

Re: error in define WIND_MINUS_CURRENT

#2 Unread post by jcwarner »

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

Post Reply