/[MITgcm]/MITgcm/model/src/calc_grad_phi_hyd.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_grad_phi_hyd.F

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

revision 1.6 by jmc, Mon Aug 4 13:20:13 2003 UTC revision 1.7 by jmc, Sat Nov 5 01:00:57 2005 UTC
# Line 59  C     == Local variables == Line 59  C     == Local variables ==
59  C     i,j :: Loop counters  C     i,j :: Loop counters
60        INTEGER i,j        INTEGER i,j
61        _RL varLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL varLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
62    #ifdef NONLIN_FRSURF
63        _RL factorZ, factorP, conv_theta2T        _RL factorZ, factorP, conv_theta2T
64        _RL factPI        _RL factPI
65        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
66    #endif
67  CEOP  CEOP
68    
69  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.22