/[MITgcm]/MITgcm/pkg/aim_v23/phy_suflux_post.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/phy_suflux_post.F

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

revision 1.1 by jmc, Thu Mar 11 14:33:19 2004 UTC revision 1.2 by jmc, Thu Apr 8 00:14:09 2004 UTC
# Line 41  C-- size for MITgcm & Physics package : Line 41  C-- size for MITgcm & Physics package :
41  #include "AIM_SIZE.h"  #include "AIM_SIZE.h"
42    
43  #include "EEPARAMS.h"  #include "EEPARAMS.h"
44    #include "GRID.h"
45    
46  C     Physical constants + functions of sigma and latitude  C     Physical constants + functions of sigma and latitude
47  #include "com_physcon.h"  #include "com_physcon.h"
# Line 87  CEOP Line 88  CEOP
88  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
89    
90  C-- Local variables:  C-- Local variables:
91        INTEGER J  C     J,i1,j1 :: Loop counters
92    C     msgBuf  :: Informational/error message buffer
93          INTEGER J,i1,j1
94          CHARACTER*(MAX_LEN_MBUF) msgBuf
95    
96  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
97    
# Line 144  C      (for diagnostic only) Line 148  C      (for diagnostic only)
148          SLRup(J,3)=EMISloc*SLRup(J,3)-SLRD(J)          SLRup(J,3)=EMISloc*SLRup(J,3)-SLRD(J)
149        ENDDO        ENDDO
150    
151    C-    Check that Temp is OK for LW Radiation scheme :
152           DO J=1,NGP
153            IF (  TSFC(J).LT.lwTemp1 .OR.
154         &        TSFC(J).GT.lwTemp2 ) THEN
155             i1 = 1 + mod((J-1),sNx)
156             j1 = 1 + int((J-1)/sNx)
157             WRITE(msgBuf,'(A,1PE20.13,A,2I4)')
158         &    'SUFLUX_POST: TS=', TSFC(J),
159         &    ' out of range ',lwTemp1,lwTemp2
160             CALL PRINT_ERROR( msgBuf , myThid)
161             WRITE(msgBuf,'(A,1P3E10.3,A,0P3F8.5)')
162         &    'SUFLUX_POST: T_Lnd,Sea,Sic=',TLAND(J),TSEA(J),TSICE(J),
163         &                ' Mask:',FMASK(J,1),FMASK(J,2),FMASK(J,3)
164             CALL PRINT_ERROR( msgBuf , myThid)
165             WRITE(msgBuf,'(A,2I4,3I3,I6,2F9.3)')
166         &    'SUFLUX_POST: Pb in i,j,bi,bj,myThid,IJ,X,Y=',
167         &        i1,j1,bi,bj,myThid,J,xC(i1,j1,bi,bj),yC(i1,j1,bi,bj)
168             CALL PRINT_ERROR( msgBuf , myThid)
169             STOP 'ABNORMAL END: S/R SUFLUX_POST'
170            ENDIF
171           ENDDO
172    
173  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
174  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
175    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22