/[MITgcm]/MITgcm/pkg/exf/exf_check.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_check.F

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

revision 1.18 by gforget, Tue Aug 28 19:17:46 2012 UTC revision 1.19 by gforget, Sun Oct 21 20:06:00 2012 UTC
# Line 49  c     check for consistency Line 49  c     check for consistency
49         stop 'ABNORMAL END: S/R EXF_CHECK'         stop 'ABNORMAL END: S/R EXF_CHECK'
50        endif        endif
51    
52        IF ( .NOT.useAtmWind ) THEN  #if ( defined (ALLOW_BULKFORMULAE) && defined (ALLOW_ATM_WIND) )
53         IF ( ustressfile .EQ. ' ' .OR. vstressfile .EQ. ' ' ) THEN        IF ( ustressfile .NE. ' ' .OR. ustressfile .NE. ' ' ) THEN
54          WRITE(msgBuf,'(A,A)') ' ** WARNING ** EXF_CHECK : no specs.',          STOP
55       &        'of u & vstressfile in data.exf, while .NOT.useAtmWind.'       & 'S/R EXF_CHECK: use u,v_wind components but not wind-stress'
         CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,  
      &                    SQUEEZE_RIGHT , myThid)  
        ENDIF  
56        ENDIF        ENDIF
   
       IF ( useAtmWind.OR.useRelativeWind ) THEN  
 #ifndef ALLOW_BULKFORMULAE  
         WRITE(msgBuf,'(A,A)') 'EXF_CHECK: useAtmWind or ',  
      &        'useRelativeWind require ALLOW_BULKFORMULAE'  
         CALL PRINT_ERROR( msgBuf, myThid )  
         STOP 'ABNORMAL END: S/R EXF_CHECK'  
57  #endif  #endif
58         IF ( uwindfile .EQ. ' ' .OR. vwindfile .EQ. ' ' ) THEN  
59          WRITE(msgBuf,'(A,A)') 'EXF_CHECK: useAtmWind or ',  #ifndef ALLOW_ATM_WIND
60       &        'useRelativeWind require u & vwindfile spec.'        IF ( uwindfile .NE. ' ' .OR. vwindfile .NE. ' ' ) THEN
61          CALL PRINT_ERROR( msgBuf, myThid )          STOP
62          STOP 'ABNORMAL END: S/R EXF_CHECK'       & 'S/R EXF_CHECK: read-in wind-stress but not u,v_wind components'
        ENDIF  
63        ENDIF        ENDIF
64    #endif
65    
66  #ifndef ALLOW_ZENITHANGLE  #ifndef ALLOW_ZENITHANGLE
67        IF ( useExfZenAlbedo .OR. useExfZenIncoming .OR.        IF ( useExfZenAlbedo .OR. useExfZenIncoming .OR.
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22