SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/test_nam_var

Go to the documentation of this file.
00001 !############################
00002 MODULE MODI_TEST_NAM_VAR_SURF
00003 !############################
00004 !
00005 INTERFACE TEST_NAM_VAR_SURF
00006 !
00007       SUBROUTINE TEST_NAM_VARC0_SURF(KLUOUT,HNAME,HVAR,       &
00008                                        HVALUE1,HVALUE2,HVALUE3, &
00009                                        HVALUE4,HVALUE5,HVALUE6, &
00010                                        HVALUE7,HVALUE8,HVALUE9  )  
00011 !
00012 INTEGER,          INTENT(IN)           ::KLUOUT   ! output listing logical unit
00013  CHARACTER(LEN=*) ,INTENT(IN)           ::HNAME    ! name of the variable to test
00014  CHARACTER(LEN=*) ,INTENT(IN)           ::HVAR     ! variable to test
00015 
00016  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE1  ! first possible value
00017  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE2  ! second possible value
00018  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE3  ! third possible value
00019  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE4  ! fourth possible value
00020  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE5  ! fiveth possible value
00021  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE6  ! sixth possible value
00022  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE7  ! seventh possible value
00023  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE8  ! eightth possible value
00024  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE9  ! nineth possible value
00025 !
00026 END SUBROUTINE TEST_NAM_VARC0_SURF
00027 !
00028       SUBROUTINE TEST_NAM_VARL0_SURF(KLUOUT,HNAME,OVAR,OVALUE)
00029 !
00030 INTEGER,          INTENT(IN)           ::KLUOUT   ! output listing logical unit
00031  CHARACTER(LEN=*) ,INTENT(IN)           ::HNAME    ! name of the variable to test
00032 LOGICAL          ,INTENT(IN)           ::OVAR     ! variable to test
00033 
00034 LOGICAL          ,INTENT(IN), OPTIONAL ::OVALUE   ! possible value
00035 !
00036 END SUBROUTINE TEST_NAM_VARL0_SURF
00037 !
00038       SUBROUTINE TEST_NAM_VARN0_SURF(KLUOUT,HNAME,KVAR,       &
00039                                        KVALUE1,KVALUE2,KVALUE3, &
00040                                        KVALUE4,KVALUE5,KVALUE6, &
00041                                        KVALUE7,KVALUE8,KVALUE9  )  
00042 !
00043 INTEGER,          INTENT(IN)           ::KLUOUT   ! output listing logical unit
00044  CHARACTER(LEN=*) ,INTENT(IN)           ::HNAME    ! name of the variable to test
00045 INTEGER          ,INTENT(IN)           ::KVAR     ! variable to test
00046 
00047 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE1  ! first possible value
00048 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE2  ! second possible value
00049 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE3  ! third possible value
00050 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE4  ! fourth possible value
00051 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE5  ! fiveth possible value
00052 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE6  ! sixth possible value
00053 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE7  ! seventh possible value
00054 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE8  ! eightth possible value
00055 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE9  ! nineth possible value
00056 !
00057 END SUBROUTINE TEST_NAM_VARN0_SURF
00058 !
00059 END INTERFACE
00060 !
00061 END MODULE MODI_TEST_NAM_VAR_SURF
00062 !
00063 !
00064 !     #########################################################
00065       SUBROUTINE TEST_NAM_VARC0_SURF(KLUOUT,HNAME,HVAR,       &
00066                                        HVALUE1,HVALUE2,HVALUE3, &
00067                                        HVALUE4,HVALUE5,HVALUE6, &
00068                                        HVALUE7,HVALUE8,HVALUE9  )  
00069 !     #########################################################
00070 !
00071 !!****  *TEST_NAM_VARC0* - routine to test the value of a character var.
00072 !!
00073 !!    PURPOSE
00074 !!    -------
00075 !
00076 !
00077 !!**  METHOD
00078 !!    ------
00079 !!
00080 !!    EXTERNAL
00081 !!    --------
00082 !!
00083 !!      FM_READ
00084 !!
00085 !!    IMPLICIT ARGUMENTS
00086 !!    ------------------
00087 !!
00088 !!
00089 !!    REFERENCE
00090 !!    ---------
00091 !!
00092 !!
00093 !!    AUTHOR
00094 !!    ------
00095 !!
00096 !!      V. MASSON      *METEO-FRANCE*
00097 !!
00098 !!    MODIFICATIONS
00099 !!    -------------
00100 !!
00101 !!      original                                                     17/04/98
00102 !----------------------------------------------------------------------------
00103 !
00104 !*      0.    DECLARATIONS
00105 !             ------------
00106 !
00107 !
00108 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00109 USE PARKIND1  ,ONLY : JPRB
00110 !
00111 USE MODI_ABOR1_SFX
00112 !
00113 IMPLICIT NONE
00114 !
00115 !*      0.1   Declarations of arguments
00116 !
00117 INTEGER,          INTENT(IN)           ::KLUOUT   ! output listing logical unit
00118  CHARACTER(LEN=*) ,INTENT(IN)           ::HNAME    ! name of the variable to test
00119  CHARACTER(LEN=*) ,INTENT(IN)           ::HVAR     ! variable to test
00120 
00121  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE1  ! first possible value
00122  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE2  ! second possible value
00123  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE3  ! third possible value
00124  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE4  ! fourth possible value
00125  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE5  ! fiveth possible value
00126  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE6  ! sixth possible value
00127  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE7  ! seventh possible value
00128  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE8  ! eightth possible value
00129  CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE9  ! nineth possible value
00130 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00131 !
00132 !*      0.2   Declarations of local variables
00133 !
00134 !
00135 !-------------------------------------------------------------------------------
00136 !
00137 IF (LHOOK) CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',0,ZHOOK_HANDLE)
00138 IF ( PRESENT (HVALUE1) ) THEN
00139   IF ( HVAR==HVALUE1  .AND. LHOOK) &
00140         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,ZHOOK_HANDLE)
00141   IF ( HVAR==HVALUE1 ) RETURN
00142 END IF
00143 !
00144 IF ( PRESENT (HVALUE2) ) THEN
00145   IF ( HVAR==HVALUE2  .AND. LHOOK) &
00146         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,ZHOOK_HANDLE)
00147   IF ( HVAR==HVALUE2 ) RETURN
00148 END IF
00149 !
00150 IF ( PRESENT (HVALUE3) ) THEN
00151   IF ( HVAR==HVALUE3  .AND. LHOOK) &
00152         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,ZHOOK_HANDLE)
00153   IF ( HVAR==HVALUE3 ) RETURN
00154 END IF
00155 !
00156 IF ( PRESENT (HVALUE4) ) THEN
00157   IF ( HVAR==HVALUE4  .AND. LHOOK) &
00158         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,ZHOOK_HANDLE)
00159   IF ( HVAR==HVALUE4 ) RETURN
00160 END IF
00161 !
00162 IF ( PRESENT (HVALUE5) ) THEN
00163   IF ( HVAR==HVALUE5  .AND. LHOOK) &
00164         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,ZHOOK_HANDLE)
00165   IF ( HVAR==HVALUE5 ) RETURN
00166 END IF
00167 !
00168 IF ( PRESENT (HVALUE6) ) THEN
00169   IF ( HVAR==HVALUE6  .AND. LHOOK) &
00170         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,ZHOOK_HANDLE)
00171   IF ( HVAR==HVALUE6 ) RETURN
00172 END IF
00173 !
00174 IF ( PRESENT (HVALUE7) ) THEN
00175   IF ( HVAR==HVALUE7  .AND. LHOOK) &
00176         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,ZHOOK_HANDLE)
00177   IF ( HVAR==HVALUE7 ) RETURN
00178 END IF
00179 !
00180 IF ( PRESENT (HVALUE8) ) THEN
00181   IF ( HVAR==HVALUE8  .AND. LHOOK) &
00182         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,ZHOOK_HANDLE)
00183   IF ( HVAR==HVALUE8 ) RETURN
00184 END IF
00185 !
00186 IF ( PRESENT (HVALUE9) ) THEN
00187   IF ( HVAR==HVALUE9  .AND. LHOOK) &
00188         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,ZHOOK_HANDLE)
00189   IF ( HVAR==HVALUE9 ) RETURN
00190 END IF
00191 !
00192 !-------------------------------------------------------------------------------
00193 !
00194 WRITE (KLUOUT,*) ' '
00195 WRITE (KLUOUT,*) 'FATAL ERROR:'
00196 WRITE (KLUOUT,*) '-----------'
00197 WRITE (KLUOUT,*) ' '
00198 WRITE (KLUOUT,*) 'Value "',HVAR,'" is not allowed for variable ',HNAME
00199 WRITE (KLUOUT,*) ' '
00200 WRITE (KLUOUT,*) 'Possible values are:'
00201 IF ( PRESENT (HVALUE1) ) WRITE (KLUOUT,*) '"',HVALUE1,'"'
00202 IF ( PRESENT (HVALUE2) ) WRITE (KLUOUT,*) '"',HVALUE2,'"'
00203 IF ( PRESENT (HVALUE3) ) WRITE (KLUOUT,*) '"',HVALUE3,'"'
00204 IF ( PRESENT (HVALUE4) ) WRITE (KLUOUT,*) '"',HVALUE4,'"'
00205 IF ( PRESENT (HVALUE5) ) WRITE (KLUOUT,*) '"',HVALUE5,'"'
00206 IF ( PRESENT (HVALUE6) ) WRITE (KLUOUT,*) '"',HVALUE6,'"'
00207 IF ( PRESENT (HVALUE7) ) WRITE (KLUOUT,*) '"',HVALUE7,'"'
00208 IF ( PRESENT (HVALUE8) ) WRITE (KLUOUT,*) '"',HVALUE8,'"'
00209 IF ( PRESENT (HVALUE9) ) WRITE (KLUOUT,*) '"',HVALUE9,'"'
00210 !
00211  CALL ABOR1_SFX('TEST_NAM_VAR_SURF: (1) CHARACTER VALUE NOT ALLOWED')
00212 IF (LHOOK) CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,ZHOOK_HANDLE)
00213 !-------------------------------------------------------------------------------
00214 END SUBROUTINE TEST_NAM_VARC0_SURF
00215 !     #########################################################
00216       SUBROUTINE TEST_NAM_VARL0_SURF(KLUOUT,HNAME,OVAR,OVALUE)
00217 !     #########################################################
00218 !
00219 !!****  *TEST_NAM_VARL0* - routine to test the value of a logical
00220 !!
00221 !!    PURPOSE
00222 !!    -------
00223 !
00224 !
00225 !!**  METHOD
00226 !!    ------
00227 !!
00228 !!    EXTERNAL
00229 !!    --------
00230 !!
00231 !!      FM_READ
00232 !!
00233 !!    IMPLICIT ARGUMENTS
00234 !!    ------------------
00235 !!
00236 !!
00237 !!    REFERENCE
00238 !!    ---------
00239 !!
00240 !!
00241 !!    AUTHOR
00242 !!    ------
00243 !!
00244 !!      P. Le Moigne      *METEO-FRANCE*
00245 !!
00246 !!    MODIFICATIONS
00247 !!    -------------
00248 !!
00249 !!      original                                                     04/07
00250 !----------------------------------------------------------------------------
00251 !
00252 !*      0.    DECLARATIONS
00253 !             ------------
00254 !
00255 !
00256 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00257 USE PARKIND1  ,ONLY : JPRB
00258 !
00259 USE MODI_ABOR1_SFX
00260 !
00261 IMPLICIT NONE
00262 !
00263 !*      0.1   Declarations of arguments
00264 !
00265 INTEGER,          INTENT(IN)           ::KLUOUT   ! output listing logical unit
00266  CHARACTER(LEN=*) ,INTENT(IN)           ::HNAME    ! name of the variable to test
00267 LOGICAL          ,INTENT(IN)           ::OVAR     ! variable to test
00268 
00269 LOGICAL          ,INTENT(IN), OPTIONAL ::OVALUE   ! possible value
00270 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00271 !
00272 !*      0.2   Declarations of local variables
00273 !
00274 !
00275 !-------------------------------------------------------------------------------
00276 !
00277 IF (LHOOK) CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARL0_SURF',0,ZHOOK_HANDLE)
00278 IF ( PRESENT (OVALUE) ) THEN
00279         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARL0_SURF',1,ZHOOK_HANDLE)
00280   IF ( ( OVAR .AND. OVALUE ) .OR. ( .NOT.OVAR .AND. .NOT.OVALUE)  .AND. LHOOK) &
00281         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARL0_SURF',1,ZHOOK_HANDLE)
00282   IF ( ( OVAR .AND. OVALUE ) .OR. ( .NOT.OVAR .AND. .NOT.OVALUE) ) RETURN
00283 END IF
00284 !
00285 !-------------------------------------------------------------------------------
00286 !
00287 WRITE (KLUOUT,*) ' '
00288 WRITE (KLUOUT,*) 'FATAL ERROR:'
00289 WRITE (KLUOUT,*) '-----------'
00290 WRITE (KLUOUT,*) ' '
00291 WRITE (KLUOUT,*) 'Value "',OVAR,'" is not allowed for variable ',HNAME
00292 WRITE (KLUOUT,*) ' '
00293 WRITE (KLUOUT,*) 'Possible values are:'
00294 IF ( PRESENT (OVALUE) ) WRITE (KLUOUT,*) '"',OVALUE,'"'
00295 !
00296  CALL ABOR1_SFX('TEST_NAM_VAR_SURF: (2) LOGICAL VALUE NOT ALLOWED')
00297 IF (LHOOK) CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARL0_SURF',1,ZHOOK_HANDLE)
00298 !-------------------------------------------------------------------------------
00299 END SUBROUTINE TEST_NAM_VARL0_SURF
00300 !     #########################################################
00301       SUBROUTINE TEST_NAM_VARN0_SURF(KLUOUT,HNAME,KVAR,       &
00302                                        KVALUE1,KVALUE2,KVALUE3, &
00303                                        KVALUE4,KVALUE5,KVALUE6, &
00304                                        KVALUE7,KVALUE8,KVALUE9  )  
00305 !     #########################################################
00306 !
00307 !!****  *TEST_NAM_VARN0* - routine to test the value of an integer var.
00308 !!
00309 !!    PURPOSE
00310 !!    -------
00311 !
00312 !
00313 !!**  METHOD
00314 !!    ------
00315 !!
00316 !!    EXTERNAL
00317 !!    --------
00318 !!
00319 !!      FM_READ
00320 !!
00321 !!    IMPLICIT ARGUMENTS
00322 !!    ------------------
00323 !!
00324 !!
00325 !!    REFERENCE
00326 !!    ---------
00327 !!
00328 !!
00329 !!    AUTHOR
00330 !!    ------
00331 !!
00332 !!      P. Le Moigne      *METEO-FRANCE*
00333 !!
00334 !!    MODIFICATIONS
00335 !!    -------------
00336 !!
00337 !!      original  04/2007
00338 !----------------------------------------------------------------------------
00339 !
00340 !*      0.    DECLARATIONS
00341 !             ------------
00342 !
00343 !
00344 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00345 USE PARKIND1  ,ONLY : JPRB
00346 !
00347 USE MODI_ABOR1_SFX
00348 !
00349 IMPLICIT NONE
00350 !
00351 !*      0.1   Declarations of arguments
00352 !
00353 INTEGER,          INTENT(IN)           ::KLUOUT   ! output listing logical unit
00354  CHARACTER(LEN=*) ,INTENT(IN)           ::HNAME    ! name of the variable to test
00355 INTEGER          ,INTENT(IN)           ::KVAR     ! variable to test
00356 
00357 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE1  ! first possible value
00358 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE2  ! second possible value
00359 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE3  ! third possible value
00360 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE4  ! fourth possible value
00361 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE5  ! fiveth possible value
00362 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE6  ! sixth possible value
00363 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE7  ! seventh possible value
00364 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE8  ! eightth possible value
00365 INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE9  ! nineth possible value
00366 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00367 !
00368 !*      0.2   Declarations of local variables
00369 !
00370 !
00371 !-------------------------------------------------------------------------------
00372 !
00373 IF (LHOOK) CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',0,ZHOOK_HANDLE)
00374 IF ( PRESENT (KVALUE1) ) THEN
00375   IF ( KVAR==KVALUE1  .AND. LHOOK) &
00376         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,ZHOOK_HANDLE)
00377   IF ( KVAR==KVALUE1 ) RETURN
00378 END IF
00379 !
00380 IF ( PRESENT (KVALUE2) ) THEN
00381   IF ( KVAR==KVALUE2  .AND. LHOOK) &
00382         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,ZHOOK_HANDLE)
00383   IF ( KVAR==KVALUE2 ) RETURN
00384 END IF
00385 !
00386 IF ( PRESENT (KVALUE3) ) THEN
00387   IF ( KVAR==KVALUE3  .AND. LHOOK) &
00388         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,ZHOOK_HANDLE)
00389   IF ( KVAR==KVALUE3 ) RETURN
00390 END IF
00391 !
00392 IF ( PRESENT (KVALUE4) ) THEN
00393   IF ( KVAR==KVALUE4  .AND. LHOOK) &
00394         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,ZHOOK_HANDLE)
00395   IF ( KVAR==KVALUE4 ) RETURN
00396 END IF
00397 !
00398 IF ( PRESENT (KVALUE5) ) THEN
00399   IF ( KVAR==KVALUE5  .AND. LHOOK) &
00400         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,ZHOOK_HANDLE)
00401   IF ( KVAR==KVALUE5 ) RETURN
00402 END IF
00403 !
00404 IF ( PRESENT (KVALUE6) ) THEN
00405   IF ( KVAR==KVALUE6  .AND. LHOOK) &
00406         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,ZHOOK_HANDLE)
00407   IF ( KVAR==KVALUE6 ) RETURN
00408 END IF
00409 !
00410 IF ( PRESENT (KVALUE7) ) THEN
00411   IF ( KVAR==KVALUE7  .AND. LHOOK) &
00412         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,ZHOOK_HANDLE)
00413   IF ( KVAR==KVALUE7 ) RETURN
00414 END IF
00415 !
00416 IF ( PRESENT (KVALUE8) ) THEN
00417   IF ( KVAR==KVALUE8  .AND. LHOOK) &
00418         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,ZHOOK_HANDLE)
00419   IF ( KVAR==KVALUE8 ) RETURN
00420 END IF
00421 !
00422 IF ( PRESENT (KVALUE9) ) THEN
00423   IF ( KVAR==KVALUE9  .AND. LHOOK) &
00424         CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,ZHOOK_HANDLE)
00425   IF ( KVAR==KVALUE9 ) RETURN
00426 END IF
00427 !
00428 !-------------------------------------------------------------------------------
00429 !
00430 WRITE (KLUOUT,*) ' '
00431 WRITE (KLUOUT,*) 'FATAL ERROR:'
00432 WRITE (KLUOUT,*) '-----------'
00433 WRITE (KLUOUT,*) ' '
00434 WRITE (KLUOUT,*) 'Value "',KVAR,'" is not allowed for variable ',HNAME
00435 WRITE (KLUOUT,*) ' '
00436 WRITE (KLUOUT,*) 'Possible values are:'
00437 IF ( PRESENT (KVALUE1) ) WRITE (KLUOUT,*) '"',KVALUE1,'"'
00438 IF ( PRESENT (KVALUE2) ) WRITE (KLUOUT,*) '"',KVALUE2,'"'
00439 IF ( PRESENT (KVALUE3) ) WRITE (KLUOUT,*) '"',KVALUE3,'"'
00440 IF ( PRESENT (KVALUE4) ) WRITE (KLUOUT,*) '"',KVALUE4,'"'
00441 IF ( PRESENT (KVALUE5) ) WRITE (KLUOUT,*) '"',KVALUE5,'"'
00442 IF ( PRESENT (KVALUE6) ) WRITE (KLUOUT,*) '"',KVALUE6,'"'
00443 IF ( PRESENT (KVALUE7) ) WRITE (KLUOUT,*) '"',KVALUE7,'"'
00444 IF ( PRESENT (KVALUE8) ) WRITE (KLUOUT,*) '"',KVALUE8,'"'
00445 IF ( PRESENT (KVALUE9) ) WRITE (KLUOUT,*) '"',KVALUE9,'"'
00446 !
00447  CALL ABOR1_SFX('TEST_NAM_VAR_SURF: (3) INTEGER VALUE NOT ALLOWED')
00448 IF (LHOOK) CALL DR_HOOK('MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,ZHOOK_HANDLE)
00449 !-------------------------------------------------------------------------------
00450 END SUBROUTINE TEST_NAM_VARN0_SURF