Errors compile with 'NCEP_FLUXES'.

Discussion about modeling ice with ROMS

Moderators: arango, robertson

Post Reply
Message
Author
mofjqm
Posts: 2
Joined: Wed Mar 20, 2013 10:53 pm
Location: Korea Maritime University

Errors compile with 'NCEP_FLUXES'.

#1 Post by mofjqm » Sun Apr 28, 2013 10:34 am

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.

User avatar
kate
Posts: 3678
Joined: Wed Jul 02, 2003 5:29 pm
Location: IMS/UAF, USA

Re: Errors compile with 'NCEP_FLUXES'.

#2 Post by kate » Mon Apr 29, 2013 3:58 pm

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
Posts: 2
Joined: Wed Mar 20, 2013 10:53 pm
Location: Korea Maritime University

Re: Errors compile with 'NCEP_FLUXES'.

#3 Post by mofjqm » Tue Apr 30, 2013 8:02 am

Thanks, Kate! :- )

Post Reply