/[MITgcm]/MITgcm/pkg/gridalt/phys2dyn.F
ViewVC logotype

Diff of /MITgcm/pkg/gridalt/phys2dyn.F

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

revision 1.7 by jmc, Tue Nov 18 21:39:38 2008 UTC revision 1.8 by jmc, Sat Jul 7 00:08:09 2012 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "GRIDALT_OPTIONS.h"
5    
6        subroutine phys2dyn(qphy,pephy,im1,im2,jm1,jm2,lmphy,Nsx,Nsy,        subroutine phys2dyn(qphy,pephy,im1,im2,jm1,jm2,lmphy,Nsx,Nsy,
7       .     idim1,idim2,jdim1,jdim2,bi,bj,pedyn,Lbot,lmdyn,nlperdyn,qdyn)       .     idim1,idim2,jdim1,jdim2,bi,bj,pedyn,Lbot,lmdyn,nlperdyn,qdyn)
8  C***********************************************************************  C***********************************************************************
9  C Purpose:  C Purpose:
10  C   To interpolate an arbitrary quantity from the 'dynamics' eta (pstar)  C   To interpolate an arbitrary quantity from the 'dynamics' eta (pstar)
11  C               grid to the higher resolution physics grid  C               grid to the higher resolution physics grid
12  C Algorithm:  C Algorithm:
13  C   Routine works one layer (edge to edge pressure) at a time.  C   Routine works one layer (edge to edge pressure) at a time.
14  C   Physics -> Dynamics computes the physics layer mean value,  C   Physics -> Dynamics computes the physics layer mean value,
# Line 36  C   1) This algorithm assumes that the o Line 38  C   1) This algorithm assumes that the o
38  C      fit exactly into the input (dynamics) grid levels  C      fit exactly into the input (dynamics) grid levels
39  C***********************************************************************  C***********************************************************************
40        implicit none        implicit none
 cinterp1 #include "PACKAGES_CONFIG.h"  
 #include "CPP_OPTIONS.h"  
41    
42        integer  im1, im2, jm1, jm2, lmdyn, lmphy, Nsx, Nsy        integer  im1, im2, jm1, jm2, lmdyn, lmphy, Nsx, Nsy
43        integer idim1, idim2, jdim1, jdim2, bi, bj        integer idim1, idim2, jdim1, jdim2, bi, bj
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22