Changeset 14932 for NEMO/branches/2021
- Timestamp:
- 2021-05-31T18:00:41+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_fbm.F90
r14650 r14932 20 20 USE netcdf 21 21 USE obs_utils ! Various utilities for observation operators 22 USE par_kind 22 23 23 24 IMPLICIT NONE 24 25 PUBLIC 25 26 ! Type kinds for feedback data.27 28 INTEGER, PARAMETER :: fbsp = SELECTED_REAL_KIND( 6, 37) !: single precision29 INTEGER, PARAMETER :: fbdp = SELECTED_REAL_KIND(12,307) !: double precision30 26 31 27 ! Parameters for string lengths. … … 44 40 45 41 INTEGER, PARAMETER :: fbimdi = -99999 !: Integers 46 REAL( fbsp), PARAMETER :: fbrmdi = 99999 !: Reals42 REAL(sp), PARAMETER :: fbrmdi = 99999 !: Reals 47 43 48 44 ! Main data structure for observation feedback data. … … 77 73 INTEGER, DIMENSION(:,:,:), POINTER :: & 78 74 & idqcf !: Depth QC flags 79 REAL(KIND= fbdp), DIMENSION(:), POINTER :: &75 REAL(KIND=dp), DIMENSION(:), POINTER :: & 80 76 & plam, & !: Longitude 81 77 & pphi, & !: Latitude 82 78 & ptim !: Time 83 REAL(KIND= fbsp), DIMENSION(:,:), POINTER :: &79 REAL(KIND=sp), DIMENSION(:,:), POINTER :: & 84 80 & pdep !: Depth 85 81 CHARACTER(LEN=ilenname), DIMENSION(:), POINTER :: & 86 82 & cname !: Name of variable 87 REAL( fbsp), DIMENSION(:,:,:), POINTER :: &83 REAL(sp), DIMENSION(:,:,:), POINTER :: & 88 84 & pob !: Observation 89 85 CHARACTER(LEN=ilenlong), DIMENSION(:), POINTER :: & … … 113 109 CHARACTER(LEN=ilenunit), DIMENSION(:,:), POINTER :: & 114 110 & caddunit !: Additional entries units (for output) 115 REAL( fbsp), DIMENSION(:,:,:,:) , POINTER :: &111 REAL(sp), DIMENSION(:,:,:,:) , POINTER :: & 116 112 & padd !: Additional entries 117 113 CHARACTER(LEN=ilenname), DIMENSION(:), POINTER :: & … … 121 117 CHARACTER(LEN=ilenunit), DIMENSION(:), POINTER :: & 122 118 & cextunit !: Extra variables units (for output) 123 REAL( fbsp), DIMENSION(:,:,:) , POINTER :: &119 REAL(sp), DIMENSION(:,:,:) , POINTER :: & 124 120 & pext !: Extra variables 125 121 END TYPE obfbdata … … 1546 1542 CHARACTER(len=*), OPTIONAL , INTENT(IN) :: cfillvalue ! Fill value for character variables 1547 1543 INTEGER, OPTIONAL , INTENT(IN) :: ifillvalue ! Fill value for integer variables 1548 REAL(kind= fbsp), OPTIONAL , INTENT(IN) :: rfillvalue ! Fill value for real variables1544 REAL(kind=sp), OPTIONAL , INTENT(IN) :: rfillvalue ! Fill value for real variables 1549 1545 CHARACTER(len=*), OPTIONAL, INTENT(IN) :: conventions ! Conventions for variable 1550 1546 !! * Local variables
Note: See TracChangeset
for help on using the changeset viewer.