Changeset 15607
- Timestamp:
- 2021-12-16T17:49:39+01:00 (2 years ago)
- Location:
- NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/DIA/diadct.F90
r15540 r15607 56 56 INTEGER :: nb_sec 57 57 58 TYPE POINT_SECTION58 TYPE :: POINT_SECTION 59 59 INTEGER :: I,J 60 60 END TYPE POINT_SECTION 61 61 62 TYPE COORD_SECTION62 TYPE :: COORD_SECTION 63 63 REAL(dp) :: lon,lat 64 64 END TYPE COORD_SECTION 65 65 66 TYPE SECTION66 TYPE :: SECTION 67 67 CHARACTER(len=60) :: name ! name of the sec 68 68 LOGICAL :: llstrpond ! true if you want the computation of salt and heat transports -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ISF/isfcpl.F90
r15540 r15607 35 35 PUBLIC isfcpl_ssh, isfcpl_tra, isfcpl_vol, isfcpl_cons ! iceshelf correction for ssh, tra, dyn and conservation 36 36 37 TYPE isfcons37 TYPE :: isfcons 38 38 INTEGER :: ii ! i global 39 39 INTEGER :: jj ! j global -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_fbm.F90
r14932 r15607 44 44 ! Main data structure for observation feedback data. 45 45 46 TYPE obfbdata46 TYPE :: obfbdata 47 47 LOGICAL :: lalloc !: Allocation status for data 48 48 LOGICAL :: lgrid !: Include grid search info -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_profiles_def.F90
r15540 r15607 50 50 !! * Type definition for valid observations 51 51 52 TYPE obs_prof_valid52 TYPE :: obs_prof_valid 53 53 54 54 LOGICAL, POINTER, DIMENSION(:) :: luse … … 58 58 !! * Type definition for each variable 59 59 60 TYPE obs_prof_var60 TYPE :: obs_prof_var 61 61 62 62 ! Arrays with size equal to the number of observations … … 89 89 !! * Type definition for profile observation type 90 90 91 TYPE obs_prof91 TYPE :: obs_prof 92 92 93 93 ! Bookkeeping -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_surf_def.F90
r15540 r15607 38 38 !! * Type definition for surface observation type 39 39 40 TYPE obs_surf40 TYPE :: obs_surf 41 41 42 42 ! Bookkeeping -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_write.F90
r15540 r15607 38 38 & obswriinfo 39 39 40 TYPE obswriinfo40 TYPE :: obswriinfo 41 41 INTEGER :: inum 42 42 INTEGER, POINTER, DIMENSION(:) :: ipoint -
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/timing.F90
r14986 r15607 36 36 37 37 ! Variables for fine grain timing 38 TYPE timer38 TYPE :: timer 39 39 CHARACTER(LEN=20) :: cname 40 40 CHARACTER(LEN=20) :: surname … … 49 49 END TYPE timer 50 50 51 TYPE alltimer51 TYPE :: alltimer 52 52 CHARACTER(LEN=20), DIMENSION(:), POINTER :: cname => NULL() 53 53 REAL(dp), DIMENSION(:), POINTER :: tsum_cpu => NULL()
Note: See TracChangeset
for help on using the changeset viewer.