Context Navigation

str_c_to_for.h90 @ 9594

Last change on this file since 9594 was 9570, checked in by nicolasmartin, 6 years ago

Global renaming for core routines (./NEMO)

Folders
- LIM_SRC_3 -> ICE_SRC
- OPA_SRC -> OCE_SRC
CPP key: key_lim3 -> key_si3
Modules, (sub)routines and variables names
- MPI: mpi_comm_opa -> mpi_comm_oce, MPI_COMM_OPA -> MPI_COMM_OCE, mpi_init_opa -> mpi_init_oce
- AGRIF: agrif_opa_* -> agrif_oce_*, agrif_lim3_* -> agrif_si3_* and few more
- TOP-PISCES: p.zlim -> p.zice, namp.zlim -> namp.zice
Comments
- NEMO/OPA -> NEMO/OCE
- ESIM|LIM3 -> SI3

File size: 1.4 KB

Line
1	!!----------------------------------------------------------------------
2	!! NEMO/OCE 3.3 , NEMO Consortium (2010)
3	!! $Id$
4	!! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
5	!!----------------------------------------------------------------------
6
7	SUBROUTINE str_c_to_for( cd_str )
8	!!---------------------------------------------------------------------
9	!!
10	!! * ROUTINE str_c_to_for *
11	!!
12	!! ** Purpose : Loop over a string and replace all non-printable
13	!! ASCII characters with spaces assuming English
14	!! characters only
15	!!
16	!! ** Method : Loop over a string and replace all non-printable
17	!! ASCII characters with spaces assuming English
18	!! characters only
19	!!
20	!! ** Action :
21	!!
22	!! History :
23	!! ! : 06-05 (K. Mogensen) Original
24	!! ! : 06-05 (A. Vidard) Cleaning up
25	!! ! : 06-10 (A. Weaver) More cleaning
26	!!---------------------------------------------------------------------
27	!! * Arguments
28	CHARACTER(LEN=*), INTENT(INOUT) :: cd_str
29
30	!! * Local declarations
31	INTEGER :: &
32	& ji
33
34	DO ji = 1, LEN( cd_str )
35	IF ( ( IACHAR( cd_str(ji:ji) ) > 128 ) &
36	& .OR.( IACHAR( cd_str(ji:ji) ) < 32 ) ) cd_str(ji:ji) = ' '
37	END DO
38
39	END SUBROUTINE str_c_to_for

Note: See TracBrowser for help on using the repository browser.