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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 83 - (hide 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 guez 32 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