Errors compile with 'NCEP_FLUXES'.

[mofjqm]

Hi roms users!

Not long ago, I have been using ROMS version 3.4 with ICE model.
and I downloaded a latest version(kate's branch), containing sea ice model a few days ago.

When I using the ROMS 3.4, it compiles well with 'NCEP_FLUXES'.
howerer, after using the latest version, it gave the following error about get_state.f90

PGF90-S-0446-Argument number 10 to mp_exchange2d: rank mismatch (get_state.f90: 1756)
PGF90-S-0446-Argument number 11 to mp_exchange2d: rank mismatch (get_state.f90: 1756)
PGF90-S-0446-Argument number 10 to mp_exchange2d: rank mismatch (get_state.f90: 1763)
PGF90-S-0446-Argument number 11 to mp_exchange2d: rank mismatch (get_state.f90: 1763)
PGF90-S-0446-Argument number 10 to mp_exchange2d: rank mismatch (get_state.f90: 1769)
PGF90-S-0446-Argument number 11 to mp_exchange2d: rank mismatch (get_state.f90: 1769)
0 inform, 0 warnings, 6 severes, 0 fatal for get_state
make: *** [/scratch/e320kmo/basu/new_trunk_test/Build/get_state.o] Error 2


How can I solve this problem?

Thanks!


Mi Ok Kwon.

[kate]

Right you are - it needs this patch:

Code: Select all

diff --git a/ROMS/Utility/get_state.F b/ROMS/Utility/get_state.F
index f0034b4..6048830 100644
--- a/ROMS/Utility/get_state.F
+++ b/ROMS/Utility/get_state.F
@@ -2660,20 +2660,23 @@
 # ifdef DISTRIBUTE
           CALL mp_exchange2d (ng, MyRank, IDmod, 4,                     &
      &                        LBi, UBi, LBj, UBj,                       &
-     &                        NghostPoints, EWperiodic, NSperiodic,     &
+     &                        NghostPoints,                             &
+     &                        EWperiodic(ng), NSperiodic(ng),           &
      &                        FORCES(ng) % rhoa_n,                      &
      &                        FORCES(ng) % cd_d,                        &
      &                        FORCES(ng) % ch_d,                        &
      &                        FORCES(ng) % ce_d)
           CALL mp_exchange2d (ng, MyRank, IDmod, 3,                     &
      &                        LBi, UBi, LBj, UBj,                       &
-     &                        NghostPoints, EWperiodic, NSperiodic,         &
+     &                        NghostPoints,                             &
+     &                        EWperiodic(ng), NSperiodic(ng),           &
      &                        FORCES(ng) % cd_m,                        &
      &                        FORCES(ng) % ch_m,                        &
      &                        FORCES(ng) % ce_m)
           CALL mp_exchange2d (ng, MyRank, IDmod, 2,                     &
      &                        LBi, UBi, LBj, UBj,                       &
-     &                        NghostPoints, EWperiodic, NSperiodic,     &
+     &                        NghostPoints,                             &
+     &                        EWperiodic(ng), NSperiodic(ng),           &
      &                        FORCES(ng) % wg2_d,                       &
      &                        FORCES(ng) % wg2_m)
 # endif

[mofjqm]

Thanks, Kate! :- )