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

[Chun-Yan Zhou]

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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mitgcm.org/pipermail/mitgcm-support/attachments/20110415/67615c5d/attachment.htm>