Changeset 12489 for NEMO/trunk/src/OCE/SBC/sbcdcy.F90
- Timestamp:
- 2020-02-28T16:55:11+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcdcy.F90
r12377 r12489 86 86 ! -------------- 87 87 ! When are we during the day (from 0 to 1) 88 zlo = ( REAL(nsec_day, wp) - 0.5_wp * r dt ) / rday89 zup = zlo + ( REAL(nn_fsbc, wp) * r dt ) / rday88 zlo = ( REAL(nsec_day, wp) - 0.5_wp * rn_Dt ) / rday 89 zup = zlo + ( REAL(nn_fsbc, wp) * rn_Dt ) / rday 90 90 ! 91 91 IF( nday_qsr == -1 ) THEN ! first time step only … … 251 251 END_2D 252 252 ! 253 ztmp = rday / ( r dt * REAL(nn_fsbc, wp) )253 ztmp = rday / ( rn_Dt * REAL(nn_fsbc, wp) ) 254 254 rscal(:,:) = rscal(:,:) * ztmp 255 255 !
Note: See TracChangeset
for help on using the changeset viewer.