Fix ndep from coupler

Resolves #1233
ESCOMP · Dec 18, 2020 · 0c4a1d8 · 0c4a1d8
1 parent c4cf120
commit 0c4a1d8
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/cpl/mct/lnd_import_export.F90 b/src/cpl/mct/lnd_import_export.F90
@@ -169,6 +169,7 @@ subroutine lnd_import( bounds, x2l, glc_present, atm2lnd_inst, glc2lnd_inst, wat
     ! Note that forc_pbot is in Pa
 
     do g = begg,endg
+       i = 1 + (g - begg)
 
        forc_pbot = atm2lnd_inst%forc_pbot_not_downscaled_grc(g)