[MITgcm-devel] exf_set_uv.F

[Jean-Michel Campin]

Hi patrick,

What about this other solution (that i don't like too much):

a)  declare the type first:
    _RL uvec_lat0, uvec_lat_inc
b)  after the #ifdef USE_EXF_INTERPOLATION , declare the size:
    DIMENSION uvec_lat_inc(MAX_LAT_INC)

And this other one (that I prefer):
As it's done in many .h files, the common blocks can be placed 
within the appropriate #ifdef []  #endif block (so that, for 
instance, exf_param.h could be included without using memory space) 
but the declaration of dimension
       integer MAX_LAT_INC
       parameter(MAX_LAT_INC = 250)
would be left outside the #ifdef []  #endif block
and therefore available in S/R exf_set_uv.F 
to dimension S/R arguments.

Jean-Michel