1.d notation should not be used
1.d refers to double precision and should not be replaced by 1._wp (or 1._dp if needed). It is used in a few routines:
smasson@jason2:ref_nemo (main)$ grep -ir "1\.d" src
src/TOP/PISCES/SED/trosk.F90:! H=1.D0/(NORM OF F'), USUALLY 1.D-2 OR 1.D-3, IS GOOD.
src/TOP/PISCES/SED/trosk.F90:! (IF H=0.D0, THE CODE PUTS H=1.D-6).
src/TOP/PISCES/SED/trosk.F90:! -------- UROUND SMALLEST NUMBER SATISFYING 1.D0+UROUND>1.D0
src/TOP/PISCES/SED/trosk.F90:! AK3(:,J)=DSQRT(UROUND*MAX(1.D-5,ABS(Y(:,J))))
src/TOP/PISCES/SED/trosk.F90: A21=1.D0/DGAMMA
src/TOP/C14/trcatm_c14.F90: zonbc14(:) = 1._wp + zonbc14(:)/1.d03
src/TOP/C14/trcatm_c14.F90: c14sbc(:,:) = 1._wp + zonbc14(1)/1.d03
src/TOP/C14/trcwri_c14.F90: CALL iom_put( "DeltaC14" , 1.d03 * ( z3d(:,:,:) - 1._wp ) ) ! Delta C14 [permil]
src/NST/vremap.F90: REAL(wp), PARAMETER :: dpthin = 1.D-3, dsmll = 1.0D-8
src/OCE/ZDF/zdfosm.F90: ! pshear(ji,jj) = pshear(ji,jj) + pshear_u * ( 1.0 - MIN( zri_p(ji,jj) / pp_ri_p_thresh, 1.d0 )**2 )