From d1cb7341d5b4d8727c9f36c20ca07391d088dd08 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Paulo=20Leit=C3=A3o?= Date: Mon, 26 Nov 2018 10:28:57 +0000 Subject: [PATCH] Update Construct Module Jet arguments list Update Construct Module Jet arguments list --- Software/MOHIDWater/ModuleLagrangian.F90 | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Software/MOHIDWater/ModuleLagrangian.F90 b/Software/MOHIDWater/ModuleLagrangian.F90 index 53cac8122..75e3473a1 100644 --- 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, &