/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_interp_vert.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_interp_vert.F

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

revision 1.8 by jmc, Wed Jan 31 21:47:55 2007 UTC revision 1.10 by jmc, Tue Nov 18 21:41:06 2008 UTC
# Line 52  C     myThid  :: my Thread Id number Line 52  C     myThid  :: my Thread Id number
52        INTEGER myIter, myThid        INTEGER myIter, myThid
53  CEOP  CEOP
54    
55    C     !FUNCTIONS:
56    #ifdef ALLOW_FIZHI
57          _RL   getcon
58          EXTERNAL getcon
59    #endif
60    
61  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
62  C     i,j,k :: loop indices  C     i,j,k :: loop indices
63        INTEGER i, j, k        INTEGER i, j, k
64        INTEGER bi, bj        INTEGER bi, bj
65        _RL   qtmpsrf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL   qtmpsrf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
66        _RL   qtmp2  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrMax,nSx,nSy)        _RL   qtmp2  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrMax,nSx,nSy)
       _RL   getcon  
       EXTERNAL getcon  
67        INTEGER kLev        INTEGER kLev
68        _RL   qprs (sNx,sNy)        _RL   qprs (sNx,sNy)
69        _RL   qinp (sNx,sNy,NrMax)        _RL   qinp (sNx,sNy,NrMax)
# Line 75  C     i,j,k :: loop indices Line 79  C     i,j,k :: loop indices
79  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
80    
81        IF (fflags(listId)(2:2).EQ.'P') THEN        IF (fflags(listId)(2:2).EQ.'P') THEN
         kappa = getcon('KAPPA')  
82          pkTop = 0. _d 0          pkTop = 0. _d 0
83            kappa = atm_kappa
84    #ifdef ALLOW_FIZHI
85            IF ( useFIZHI ) kappa = getcon('KAPPA')
86    #endif
87    
88  C--   If nonlinear free surf is active, need averaged pressures  C--   If nonlinear free surf is active, need averaged pressures
89          IF (select_rStar.GT.0) THEN          IF (select_rStar.GT.0) THEN
# Line 92  C-    IF fizhi is being  used, may need Line 99  C-    IF fizhi is being  used, may need
99       &                                   jpoint2, ipoint2, myThid )       &                                   jpoint2, ipoint2, myThid )
100            ENDIF            ENDIF
101            IF ( ipoint1.EQ.0 .OR. ipoint2.EQ.0 ) THEN            IF ( ipoint1.EQ.0 .OR. ipoint2.EQ.0 ) THEN
102              WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_INTERP_VERT: ',              WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_INTERP_VERT: ',
103       &      'fails to interpolate diag.(#', ndId,'): ',flds(md,listId)       &      'fails to interpolate diag.(#', ndId,'): ',flds(md,listId)
104              CALL PRINT_ERROR( msgBuf , myThid )              CALL PRINT_ERROR( msgBuf , myThid )
105              STOP 'ABNORMAL END: S/R DIAGNOSTICS_INTERP_VERT'              STOP 'ABNORMAL END: S/R DIAGNOSTICS_INTERP_VERT'
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22