While trying to compile WRFv3.8.1 with GNU and OpenMPI, there were compilation errors:
call random_seed (PUT=seed)
1
Error: Size of ‘put’ argument of ‘random_seed’ intrinsic at (1) too small (12/33)
module_cu_g3.f90:3195:41:
To resolve this, I have modified module_cu_g3.F:
$ diff -urN module_cu_g3.F.org module_cu_g3.F
--- module_cu_g3.F.org 2018-09-23 22:09:29.157203661 -0500
+++ module_cu_g3.F 2018-09-23 22:09:45.043998813 -0500
@@ -3122,7 +3122,7 @@
pcrit,acrit,acritt
integer :: nall2,ixxx,irandom
- integer, dimension (12) :: seed
+ integer, dimension (33) :: seed
Should the fix mentioned above be applied to the 3.8.1 git repo.
call random_seed (PUT=seed)
1
Error: Size of ‘put’ argument of ‘random_seed’ intrinsic at (1) too small (12/33)
module_cu_g3.f90:3195:41:
To resolve this, I have modified module_cu_g3.F:
$ diff -urN module_cu_g3.F.org module_cu_g3.F
--- module_cu_g3.F.org 2018-09-23 22:09:29.157203661 -0500
+++ module_cu_g3.F 2018-09-23 22:09:45.043998813 -0500
@@ -3122,7 +3122,7 @@
pcrit,acrit,acritt
integer :: nall2,ixxx,irandom
- integer, dimension (12) :: seed
+ integer, dimension (33) :: seed
Should the fix mentioned above be applied to the 3.8.1 git repo.