- Timestamp:
- 2018-07-11T10:24:17+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/SBC/sbcdcy.F90
r9598 r9923 88 88 89 89 ! When are we during the day (from 0 to 1) 90 zlo = ( REAL(nsec_day, wp) - 0.5_wp * r dt ) / rday91 zup = zlo + ( REAL(nn_fsbc, wp) * r dt ) / rday90 zlo = ( REAL(nsec_day, wp) - 0.5_wp * rn_Dt ) / rday 91 zup = zlo + ( REAL(nn_fsbc, wp) * rn_Dt ) / rday 92 92 ! 93 93 IF( nday_qsr == -1 ) THEN ! first time step only … … 187 187 END DO 188 188 ! 189 ztmp = rday / ( r dt * REAL(nn_fsbc, wp) )189 ztmp = rday / ( rn_Dt * REAL(nn_fsbc, wp) ) 190 190 rscal(:,:) = rscal(:,:) * ztmp 191 191 !
Note: See TracChangeset
for help on using the changeset viewer.