/[lmdze]/trunk/Sources/IOIPSL/strlowercase.f
ViewVC logotype

Contents of /trunk/Sources/IOIPSL/strlowercase.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 83 - (show annotations)
Thu Mar 6 15:12:00 2014 UTC (10 years, 2 months ago) by guez
Original Path: trunk/IOIPSL/strlowercase.f
File size: 618 byte(s)
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 module strlowercase_m
2
3 implicit none
4
5 contains
6
7 !=
8 SUBROUTINE strlowercase (str)
9 !---------------------------------------------------------------------
10 !- Converts a string into lowercase
11 !---------------------------------------------------------------------
12 IMPLICIT NONE
13 !-
14 CHARACTER(LEN=*) :: str
15 !-
16 INTEGER :: i,ic
17 !---------------------------------------------------------------------
18 DO i=1,LEN_TRIM(str)
19 ic = IACHAR(str(i:i))
20 IF ( (ic >= 65) .AND. (ic <= 90) ) str(i:i) = ACHAR(ic+32)
21 ENDDO
22 !-----------------------------
23 END SUBROUTINE strlowercase
24
25 end module strlowercase_m

  ViewVC Help
Powered by ViewVC 1.1.21