/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_calc_rtrans.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_calc_rtrans.F

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

revision 1.4 by heimbach, Thu Dec 8 15:44:34 2005 UTC revision 1.5 by heimbach, Wed May 3 23:35:11 2006 UTC
# Line 32  C     == GLobal variables == Line 32  C     == GLobal variables ==
32  #include "PARAMS.h"  #include "PARAMS.h"
33  #include "GRID.h"  #include "GRID.h"
34  #include "SURFACE.h"  #include "SURFACE.h"
35    #include "MOM_FLUXFORM.h"
36    
37  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
38  C     == Routine arguments ==  C     == Routine arguments ==
# Line 54  C     == Local variables in common block Line 55  C     == Local variables in common block
55  C     dWtransC :: vertical transp. difference between r & r* coordinates  C     dWtransC :: vertical transp. difference between r & r* coordinates
56  C     dWtransU :: same but above u.point location (West  face)  C     dWtransU :: same but above u.point location (West  face)
57  C     dWtransV :: same but above v.point location (South face)  C     dWtransV :: same but above v.point location (South face)
58        COMMON /LOCAL_MOM_CALC_RTRANS/  cph need this in a header for the adjoint
59       &       dWtransC, dWtransU, dWtransV  cph      COMMON /LOCAL_MOM_CALC_RTRANS/
60        _RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)    cph     &       dWtransC, dWtransU, dWtransV
61        _RL dWtransU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)    cph      _RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
62        _RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)    cph      _RL dWtransU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
63    cph      _RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
64  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
65  C     == Local variables ==  C     == Local variables ==
66  C     I, J :: Loop counters  C     I, J :: Loop counters
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22