/[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.6 by edhill, Wed May 5 00:39:21 2004 UTC revision 1.7 by jmc, Tue Nov 18 21:39:38 2008 UTC
# Line 36  C   1) This algorithm assumes that the o Line 36  C   1) This algorithm assumes that the o
36  C      fit exactly into the input (dynamics) grid levels  C      fit exactly into the input (dynamics) grid levels
37  C***********************************************************************  C***********************************************************************
38        implicit none        implicit none
39    cinterp1 #include "PACKAGES_CONFIG.h"
40  #include "CPP_OPTIONS.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
# Line 48  C*************************************** Line 49  C***************************************
49        integer Lbot(im1:im2,jm1:jm2,Nsx,Nsy)        integer Lbot(im1:im2,jm1:jm2,Nsx,Nsy)
50    
51        integer  i,j,L,Lout1,Lout1p1,Lout2,Lphy        integer  i,j,L,Lout1,Lout1p1,Lout2,Lphy
52        _RL getcon, kappa, dpkephy, dpkedyn, sum        _RL dpkephy, dpkedyn, sum
53    
54        kappa = getcon('KAPPA')  cinterp1  _RL kappa
55    #ifdef ALLOW_FIZHI
56    cinterp1  _RL getcon
57    #else
58    cinterp1 #include 'SIZE.h'
59    cinterp1 #include 'EEPARAMS.h'
60    cinterp1 #include 'PARAMS.h'
61    #endif
62    
63    #ifdef ALLOW_FIZHI
64    cinterp1  kappa = getcon('KAPPA')
65    #else
66    cinterp1  kappa = atm_kappa
67    #endif
68    
69  c do loop for all dynamics (output) levels  c do loop for all dynamics (output) levels
70        do L = 1,lmdyn        do L = 1,lmdyn
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22