Changeset 2101 for branches/DEV_R1821_Rivers/NEMO/OPA_SRC/SBC/sbcrnf.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/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
Note: See TracChangeset
for help on using the changeset viewer.