[MITgcm-support] how to add a Logical parameter very similar with no_slip_bottom

[Martin Losch]

Hi,

from your code snippets I am assuming that you forgot a "," (comma) after "addwave", both for the common block and the namelist (but I would have thought that your compile should complain about this in a different way). This happens to me all the time (o:

If that does not fix it, post your PARAMS.h, ini_parms.F, set_defaults.F somewhere to download, and I'll have a look at it.

Martin

On Apr 15, 2011, at 6:36 PM, Chun-Yan Zhou wrote:

> Hi all,
>  I want to add a logical parameter very much like "no_slip_bottom", when it is true, it will call a new subroutine.
>  I have adjusted 3 files that are related to define this logical parameter following wherever "no_slip_bottom "appears. such as
>  PARAMS.h
>       COMMON /PARM_L/
> .....
>       & no_slip_sides, no_slip_bottom,
>       & addwave
> .....
>       LOGICAL no_slip_sides
>       LOGICAL no_slip_bottom
>       LOGICAL addwave 
>  
> ini_parms.F
>        NAMELIST /PARM01/
> .....   
>      & no_slip_sides, sideDragFactor,
>      & no_slip_bottom, bottomDragLinear, bottomDragQuadratic,
>      & addwave
>  
> set_defaults.F
>       no_slip_sides       = .TRUE.
>       no_slip_bottom    = .TRUE.
>       addwave             =.FALSE.
>  
> But when I compiled, there is error message below. It seems that the new parameter cause some trouble for other existing parameters.
> I don't know how to deal with it. Any suggestions are much appreciated!
>  
> config_summary.f: In subroutine `config_summary':
> config_summary.f:3300: 
>          CALL WRITE_0D_L( useConstantF,  INDEX_NONE,
>                           ^
> Invalid declaration of or reference to symbol `useconstantf' at (^) [initially seen at (^)]
> config_summary.f:3049: warning:
>          CALL WRITE_0D_L( fluidIsAir,   INDEX_NONE,
>               1
> config_summary.f:3300: (continued):
>          CALL WRITE_0D_L( useConstantF,  INDEX_NONE,
>               2
> Argument #1 of `write_0d_l' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
> config_summary.f:3302: 
>          CALL WRITE_0D_L( useBetaPlaneF,  INDEX_NONE,
>                           ^
> Invalid declaration of or reference to symbol `usebetaplanef' at (^) [initially seen at (^)]
> config_summary.f:3049: warning:
>          CALL WRITE_0D_L( fluidIsAir,   INDEX_NONE,
>               1
> config_summary.f:3302: (continued):
>          CALL WRITE_0D_L( useBetaPlaneF,  INDEX_NONE,
>               2
> Argument #1 of `write_0d_l' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
> config_summary.f:3304: 
>          CALL WRITE_0D_L( useSphereF,  INDEX_NONE,
>                           ^
> Invalid declaration of or reference to symbol `usespheref' at (^) [initially seen at (^)]
> config_summary.f:3049: warning:
>          CALL WRITE_0D_L( fluidIsAir,   INDEX_NONE,
>               1
> config_summary.f:3304: (continued):
>          CALL WRITE_0D_L( useSphereF,  INDEX_NONE,
>               2
> Argument #1 of `write_0d_l' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
> make: *** [config_summary.o] Error 1
>  
>  
>  
>      
>  
>  
> Chunyan Zhou
> Division of Civil Engineering
> School of Engineering, Physics and Mathematics
> College of Art, Science and Engineering
> Fulton Building
> University of Dundee
> Dundee DD1 4HN
> The University of Dundee is a registered Scottish charity, No: SC015096
> 
> _______________________________________________
> MITgcm-support mailing list
> MITgcm-support at mitgcm.org
> http://mitgcm.org/mailman/listinfo/mitgcm-support