Changeset 2101 for branches/DEV_R1821_Rivers/NEMO/OPA_SRC/DYN/sshwzv.F90
- Timestamp:
- 2010-09-16T16:05:37+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_R1821_Rivers/NEMO/OPA_SRC/DYN/sshwzv.F90
r1938 r2101 27 27 USE diaar5, ONLY : lk_diaar5 28 28 USE iom 29 USE sbcrnf, ONLY : rnf_dep, rnf_mod_dep ! River runoff 29 30 30 31 IMPLICIT NONE … … 134 135 hvr(:,:) = vmask(:,:,1) / ( hv(:,:) + 1.e0 - vmask(:,:,1) ) 135 136 ! 137 DO jj=1,jpj 138 DO ji=1,jpi 139 rnf_dep(ji,jj)=0 140 DO jk=1,rnf_mod_dep(ji,jj) ! recalculates rnf_dep to be the depth 141 rnf_dep(ji,jj)=rnf_dep(ji,jj)+fse3t(ji,jj,jk) ! in metres to the bottom of the relevant grid box 142 ENDDO 143 ENDDO 144 ENDDO 145 ! 136 146 ENDIF 137 147
Note: See TracChangeset
for help on using the changeset viewer.