Update Construct Module Jet arguments list

Mohid-Water-Modelling-System · Nov 26, 2018 · d1cb734 · d1cb734
1 parent fb58a6d
commit d1cb734
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/Software/MOHIDWater/ModuleLagrangian.F90 b/Software/MOHIDWater/ModuleLagrangian.F90
@@ -3786,15 +3786,15 @@ subroutine ConstructOrigins
 
                 if (NewOrigin%State%ComputePlume) then
 
-                    call Construct_Jet(JetID       = NewOrigin%Movement%ObjJet,          &
-                                       FileName    = NewOrigin%Movement%JetDataFile,     &
-                                       PositionX   = NewOrigin%Position%X,               & 
-                                       PositionY   = NewOrigin%Position%Y,               & 
-                                       Flow        = NewOrigin%Flow,                     &
-                                       Salinity    = NewOrigin%Movement%JetSalinity,     &
-                                       Temperature = NewOrigin%Movement%JetTemperature,  &
-                                       STAT        = STAT_CALL) 
-
+                    call Construct_Jet(JetID            = NewOrigin%Movement%ObjJet,            &
+                                       FileName         = NewOrigin%Movement%JetDataFile,       &
+                                       HorizontalGridID = Me%ObjHorizontalGrid,                 &
+                                       PositionX        = NewOrigin%Position%X,                 & 
+                                       PositionY        = NewOrigin%Position%Y,                 & 
+                                       Flow             = NewOrigin%Flow,                       &
+                                       Salinity         = NewOrigin%Movement%JetSalinity,       &
+                                       Temperature      = NewOrigin%Movement%JetTemperature,    &
+                                       STAT             = STAT_CALL) 
                     if (STAT_CALL /= SUCCESS_) stop 'ConstructOrigins - ModuleLagrangian - ERR1530'
 
                     call UnitsManager(NewOrigin%Movement%JetUnit, OPEN_FILE,             &