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

Annotation of /MITgcm/pkg/mom_fluxform/mom_u_coriolis.F

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


Revision 1.2 - (hide annotations) (download)
Tue May 29 14:01:38 2001 UTC (23 years ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint40pre3, checkpoint40pre1, checkpoint40pre7, checkpoint40pre6, checkpoint40pre9, checkpoint40pre8, checkpoint40pre2, checkpoint40pre4, checkpoint40pre5, checkpoint40
Changes since 1.1: +45 -0 lines
Merge from branch pre38:
 o essential mods for cubed sphere
 o debugged atmosphere, dynamcis + physics (aim)
 o new packages (mom_vecinv, mom_fluxform, ...)

1 adcroft 1.2 C $Header: /u/gcmpack/models/MITgcmUV/pkg/mom_fluxform/Attic/mom_u_coriolis.F,v 1.1.2.1 2001/03/28 19:51:14 adcroft Exp $
2     C $Name: pre38-close $
3    
4     #include "CPP_OPTIONS.h"
5    
6     SUBROUTINE MOM_U_CORIOLIS(
7     I bi,bj,k,vFld,
8     U uCoriolisTerm,
9     I myThid)
10     IMPLICIT NONE
11    
12     C Calculates Coriolis term, f*V, in U equation
13    
14     C == Global variables ==
15     #include "SIZE.h"
16     #include "DYNVARS.h"
17     #include "EEPARAMS.h"
18     #include "PARAMS.h"
19     #include "GRID.h"
20     #include "SURFACE.h"
21    
22     C == Routine arguments ==
23     C myThid - Instance number for this innvocation of CALC_MOM_RHS
24     INTEGER bi,bj,K
25     _RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
26     _RL uCoriolisTerm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
27     INTEGER myThid
28    
29     C == Local variables ==
30     INTEGER i,j
31    
32     DO j=1-Oly,sNy+Oly-1
33     DO i=1-Olx+1,sNx+Olx
34     uCoriolisTerm(i,j) =
35     & 0.5*( _fCori( i ,j,bi,bj) +
36     & _fCori(i-1,j,bi,bj) )
37     & *0.25*(
38     & vFld( i ,j)+vFld( i ,j+1)
39     & +vFld(i-1,j)+vFld(i-1,j+1)
40     & )
41     ENDDO
42     ENDDO
43    
44     RETURN
45     END

  ViewVC Help
Powered by ViewVC 1.1.22