Parent Directory
| 
Revision Log
In procedure conf_guide, replaced calls to getpar by reading a namelist. Removed file getparam.f, now unused. So getin of IOIPSL is now unused too. Removed files getincom.f, getincom2.f, cmpblank.f, find_sig.f, gensig.f and nocomma.f. Moved variables lat_min_guide and lat_max_guide from module tau2alpha_m to module conf_guide_m. Removed variables nivsig and nivsigs of module disvert_m. Instead, in initdynav and initfluxsto, directly wrote arithmetic sequence for verical axis, pending a better vertical axis. Removed variables nivsig and nivsigs of "(re)?.start.nc". In procedure exner_hyb, replaced p(:, :, 1) by equivalent ps.
| 1 | guez | 32 | module find_str_m |
| 2 | |||
| 3 | implicit none | ||
| 4 | |||
| 5 | contains | ||
| 6 | |||
| 7 | != | ||
| 8 | SUBROUTINE find_str (nb_str,str_tab,str_len_tab,str,pos) | ||
| 9 | !--------------------------------------------------------------------- | ||
| 10 | !- This subroutine looks for a string in a table | ||
| 11 | !--------------------------------------------------------------------- | ||
| 12 | !- INPUT | ||
| 13 | !- nb_str : length of table | ||
| 14 | !- str_tab : Table of strings | ||
| 15 | !- str_len_tab : Table of string-length | ||
| 16 | !- str : Target we are looking for | ||
| 17 | !- OUTPUT | ||
| 18 | !- pos : -1 if str not found, else value in the table | ||
| 19 | !--------------------------------------------------------------------- | ||
| 20 | IMPLICIT NONE | ||
| 21 | !- | ||
| 22 | INTEGER :: nb_str | ||
| 23 | CHARACTER(LEN=*),DIMENSION(nb_str) :: str_tab | ||
| 24 | INTEGER,DIMENSION(nb_str) :: str_len_tab | ||
| 25 | CHARACTER(LEN=*) :: str | ||
| 26 | INTEGER :: pos | ||
| 27 | !- | ||
| 28 | INTEGER :: i,il | ||
| 29 | !--------------------------------------------------------------------- | ||
| 30 | pos = -1 | ||
| 31 | il = LEN_TRIM(str) | ||
| 32 | IF ( nb_str > 0 ) THEN | ||
| 33 | DO i=1,nb_str | ||
| 34 | IF ( (INDEX(str_tab(i),str(1:il)) > 0) & | ||
| 35 | .AND.(str_len_tab(i) == il) ) THEN | ||
| 36 | pos = i | ||
| 37 | EXIT | ||
| 38 | ENDIF | ||
| 39 | ENDDO | ||
| 40 | ENDIF | ||
| 41 | !------------------------- | ||
| 42 | END SUBROUTINE find_str | ||
| 43 | |||
| 44 | end module find_str_m |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |