Changeset 9515 for branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_rnf_1d.F90

Timestamp:

2018-04-27T14:56:20+02:00 (6 years ago)

Author:

dancopsey

Message:

Do not use halos in area calculations.

File:

• branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_rnf_1d.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_rnf_1d.F90

@@ -112 +112 @@
       ALLOCATE( rivers%river_area( nn_cpl_river ) )
       rivers%river_area(:) = 0.0
-      DO ii = 1, jpi
-        DO jj = 1, jpj
+      DO ii = nldi, nlei      
+        DO jj = nldj, nlej
           IF ( rivers%river_number(ii,jj) > 0 .AND. rivers%river_number(ii,jj) <= nn_cpl_river ) THEN
             rivers%river_area(rivers%river_number(ii,jj)) = rivers%river_area(rivers%river_number(ii,jj)) + e1e2t(ii,jj)