New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
str_c_to_for.h90 in branches/UKMO/dev_r5518_sst_landsea_cpl/NEMOGCM/NEMO/OPA_SRC/OBS – NEMO

source: branches/UKMO/dev_r5518_sst_landsea_cpl/NEMOGCM/NEMO/OPA_SRC/OBS/str_c_to_for.h90 @ 6709

Last change on this file since 6709 was 6709, checked in by huwlewis, 8 years ago

Update UKMO keywords within branch for local build

File size: 1.4 KB
Line 
1   !!----------------------------------------------------------------------
2   !! NEMO/OPA 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.