/[MITgcm]/MITgcm_contrib/SOSE/BoxAdj/code_ad/ctrl_getobcsw.F
ViewVC logotype

Diff of /MITgcm_contrib/SOSE/BoxAdj/code_ad/ctrl_getobcsw.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by mmazloff, Fri Mar 18 18:43:05 2011 UTC revision 1.7 by mmazloff, Mon Apr 18 23:47:25 2011 UTC
# Line 76  cgg      _RL maskyz   (1-oly:sny+oly,nr, Line 76  cgg      _RL maskyz   (1-oly:sny+oly,nr,
76    
77        character*(80) fnameobcsw        character*(80) fnameobcsw
78    
79  cmm( modes:  #ifdef ALLOW_OBCS_CONTROL_MODES
80        integer nk,nz        integer nk,nz
81        _RL     tmpz (nr,nsx,nsy)        _RL     tmpz (nr,nsx,nsy)
82        _RL     stmp        _RL     stmp
83    #endif
84    
85  c     == external functions ==  c     == external functions ==
86    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22