Error fix to allow real(4) default compilation

Mohid-Water-Modelling-System · Oct 28, 2024 · 28ef4c2 · 28ef4c2
1 parent 50dd94b
commit 28ef4c2
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Software/MOHIDWater/ModuleLagrangianGlobal.F90 b/Software/MOHIDWater/ModuleLagrangianGlobal.F90
@@ -9034,6 +9034,7 @@ subroutine ReadJellyFishOptions(NewOrigin)
         type(T_Origin)                  :: NewOrigin
 
         !Local-----------------------------------------------------------------    
+        real                            :: aux
         integer                         :: flag, STAT_CALL
 
         !Begin-----------------------------------------------------------------    
@@ -9065,6 +9066,8 @@ subroutine ReadJellyFishOptions(NewOrigin)
                         STAT         = STAT_CALL)
         if (STAT_CALL /= SUCCESS_) stop 'ReadJellyFishOptions - ModuleLagrangianGlobal - ERR030'
 
+        aux = 0.9035*Pi
+
         !Preferred direction of the Jellyfish in radians (0 => East, Pi/2 => North, Pi => West, 1.5*Pi => South) [rad]
         call GetData(NewOrigin%JellyFish%Pref_Dir,                                      &
                         Me%ObjEnterData,                                                &
@@ -9073,7 +9076,7 @@ subroutine ReadJellyFishOptions(NewOrigin)
                         keyword      ='JELLYFISH_PREF_DIR',                             &
                         ClientModule ='ModuleLagrangianGlobal',                         &
                         !Malul et al., 2024
-                        Default      = 0.9035*Pi,                                       &
+                        Default      = aux,                                             &
                         STAT         = STAT_CALL)
         if (STAT_CALL /= SUCCESS_) stop 'ReadJellyFishOptions - ModuleLagrangianGlobal - ERR040'