[MITgcm-devel] changes to exf_init_runoff.F

[Dimitris Menemenlis]

Patrick, I needed to be able to force model with monthly runoff so I have 
removed exf_init_runoff.F and now deal with runoff in same way as other 
atmospheric fields using exf_init and exf_set_gen.

One bit of code that I was not sure how to deal with is the ALLOW_RUNOFF_CONTROL 
option, which used to live in exf_init_runoff.F, and which now needs to be moved 
to exf_getffields.F.  RUNOFF_CONTROL was set to operate on one time-mean field 
only?  Does anybody use RUNOFF_CONTROL?  How should I proceed?

Dimitris

P.S. verification/global_ocean_with_exf fails to compile, prior to above change 
with following error messages.

> [dimitri at glafkos build]$ make
> g77 -Wimplicit -Wunused -mfpmath=sse -msse -msse2 -O0 -malign-double -c active_file_control_profiles.f
> active_file_control_profiles.f: In subroutine `active_read_profile_rl':
> active_file_control_profiles.f:1765: 
>          err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 )
>                ^
> Invalid declaration of or reference to symbol `nf_inq_varid' at (^) [initially seen at (^)]
> active_file_control_profiles.f:1766: 
>          err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
>                ^
> Invalid declaration of or reference to symbol `nf_get_vara_double' at (^) [initially seen at (^)]
> active_file_control_profiles.f:1831: 
>          err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
>                ^
> Invalid declaration of or reference to symbol `nf_put_vara_double' at (^) [initially seen at (^)]
> In file included from active_file_control_profiles.f:0:
> active_file_control_profiles.f:1736: warning: unused variable 'varid1'
> active_file_control_profiles.f:1736: warning: unused variable 'err'
> active_file_control_profiles.f: In subroutine `active_write_profile_rl':
> active_file_control_profiles.f:3288: 
>          err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 )
>                ^
> Invalid declaration of or reference to symbol `nf_inq_varid' at (^) [initially seen at (^)]
> active_file_control_profiles.f:3289: 
>          err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
>                ^
> Invalid declaration of or reference to symbol `nf_put_vara_double' at (^) [initially seen at (^)]
> active_file_control_profiles.f:3298: 
>          err = NF_PUT_VAR1_INT(fid, varid1 , vec_start(2),
>                ^
> Invalid declaration of or reference to symbol `nf_put_var1_int' at (^) [initially seen at (^)]
> active_file_control_profiles.f:3347: 
>          err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
>                ^
> Invalid declaration of or reference to symbol `nf_get_vara_double' at (^) [initially seen at (^)]
> active_file_control_profiles.f:3255: warning: unused variable 'varid1'
> active_file_control_profiles.f:3255: warning: unused variable 'err'
> make: *** [active_file_control_profiles.o] Error 1