Changeset 9515
- Timestamp:
- 2018-04-27T14:56:20+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_rnf_1d.F90
r9314 r9515 112 112 ALLOCATE( rivers%river_area( nn_cpl_river ) ) 113 113 rivers%river_area(:) = 0.0 114 DO ii = 1, jpi115 DO jj = 1, jpj114 DO ii = nldi, nlei 115 DO jj = nldj, nlej 116 116 IF ( rivers%river_number(ii,jj) > 0 .AND. rivers%river_number(ii,jj) <= nn_cpl_river ) THEN 117 117 rivers%river_area(rivers%river_number(ii,jj)) = rivers%river_area(rivers%river_number(ii,jj)) + e1e2t(ii,jj)
Note: See TracChangeset
for help on using the changeset viewer.