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/obs_oper_do_not_assim_update/NEMOGCM/NEMO/OPA_SRC/OBS – NEMO

source: branches/UKMO/obs_oper_do_not_assim_update/NEMOGCM/NEMO/OPA_SRC/OBS/str_c_to_for.h90 @ 7932

Last change on this file since 7932 was 7773, checked in by mattmartin, 7 years ago

Committing updates after doing the following:

  • merging the branch dev_r4650_general_vert_coord_obsoper@7763 into this branch
  • updating it so that the following OBS changes were implemented correctly on top of the simplification changes:
    • generalised vertical coordinate for profile obs. This was done so that is now the default option.
    • sst bias correction implemented with the new simplified obs code.
    • included the biogeochemical obs types int he new simplified obs code.
    • included the changes to exclude obs in the boundary for limited area models
    • included other changes for the efficiency of the obs operator to remove global arrays.
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.