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. |