Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/diaobs.F90
- Timestamp:
- 2020-12-18T18:52:57+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/diaobs.F90
r14056 r14219 98 98 99 99 CHARACTER(len=8), PUBLIC, DIMENSION(:), ALLOCATABLE :: cobstypesprof, cobstypessurf !: Profile & surface obs types 100 101 !! * Substitutions 102 # include "single_precision_substitute.h90" 100 103 101 104 !!---------------------------------------------------------------------- … … 687 690 & nit000, idaystp, jvar, & 688 691 & zprofvar(:,:,:,jvar), & 689 & gdept(:,:,:,Kmm), gdepw(:,:,:,Kmm), &692 & CASTWP(gdept(:,:,:,Kmm)), gdepw(:,:,:,Kmm), & 690 693 & zprofmask(:,:,:,jvar), & 691 694 & zglam(:,:,jvar), zgphi(:,:,jvar), &
Note: See TracChangeset
for help on using the changeset viewer.