/[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.19 by gforget, Sun Oct 21 20:06:00 2012 UTC revision 1.20 by jmc, Mon Oct 22 01:29:51 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 ( defined (ALLOW_BULKFORMULAE) && defined (ALLOW_ATM_WIND) )  #ifdef ALLOW_BULKFORMULAE
53          IF ( useAtmWind ) THEN
54        IF ( ustressfile .NE. ' ' .OR. ustressfile .NE. ' ' ) THEN        IF ( ustressfile .NE. ' ' .OR. ustressfile .NE. ' ' ) THEN
55          STOP          STOP
56       & 'S/R EXF_CHECK: use u,v_wind components but not wind-stress'       & 'S/R EXF_CHECK: use u,v_wind components but not wind-stress'
57        ENDIF        ENDIF
58          ENDIF
59  #endif  #endif
60    
61  #ifndef ALLOW_ATM_WIND        IF ( .NOT.useAtmWind ) THEN
62        IF ( uwindfile .NE. ' ' .OR. vwindfile .NE. ' ' ) THEN        IF ( uwindfile .NE. ' ' .OR. vwindfile .NE. ' ' ) THEN
63          STOP          STOP
64       & 'S/R EXF_CHECK: read-in wind-stress but not u,v_wind components'       & 'S/R EXF_CHECK: read-in wind-stress but not u,v_wind components'
65        ENDIF        ENDIF
66  #endif        ENDIF
67    
68  #ifndef ALLOW_ZENITHANGLE  #ifndef ALLOW_ZENITHANGLE
69        IF ( useExfZenAlbedo .OR. useExfZenIncoming .OR.        IF ( useExfZenAlbedo .OR. useExfZenIncoming .OR.
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22