Changeset 2101
- Timestamp:
- 2010-09-16T16:05:37+02:00 (14 years ago)
- Location:
- branches/DEV_R1821_Rivers/NEMO/OPA_SRC
- Files:
-
- 3 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 -
branches/DEV_R1821_Rivers/NEMO/OPA_SRC/SBC/sbcrnf.F90
r2037 r2101 247 247 ! 248 248 ENDIF 249 249 250 ! recalculate rnf_dep to be the depth in metres to the bottom of the relevant grid box 251 DO jj=1,jpj 252 DO ji=1,jpi 253 rnf_dep(ji,jj)=0 254 DO jk=1,rnf_mod_dep(ji,jj) 255 rnf_dep(ji,jj)=rnf_dep(ji,jj)+fse3t(ji,jj,jk) 256 ENDDO 257 ENDDO 258 ENDDO 250 259 ! ! ======================== 251 260 ! ! River mouth vicinity -
branches/DEV_R1821_Rivers/NEMO/OPA_SRC/TRA/trasbc.F90
r1998 r2101 153 153 DO jj=1,jpj 154 154 DO ji=1,jpi 155 rnf_dep(ji,jj)=0156 DO jk=1,rnf_mod_dep(ji,jj) ! recalculates rnf_dep to be the depth157 rnf_dep(ji,jj)=rnf_dep(ji,jj)+fse3t(ji,jj,jk) ! in metres to the bottom of the relevant grid box158 ENDDO159 155 zdep = 1. / rnf_dep(ji,jj) 160 156 zse3t= 1. / fse3t(ji,jj,1)
Note: See TracChangeset
for help on using the changeset viewer.