Ocean Modeling Discussion

ROMS/TOMS

Search for:
It is currently Wed Nov 14, 2018 7:47 pm




Post new topic Reply to topic  [ 3 posts ] 

All times are UTC

Author Message
PostPosted: Sun Apr 28, 2013 10:34 am 
Offline

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


Top
 Profile  
Reply with quote  
PostPosted: Mon Apr 29, 2013 3:58 pm 
Offline
User avatar

Joined: Wed Jul 02, 2003 5:29 pm
Posts: 3516
Location: IMS/UAF, USA
Right you are - it needs this patch:
Code:
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


Top
 Profile  
Reply with quote  
PostPosted: Tue Apr 30, 2013 8:02 am 
Offline

Joined: Wed Mar 20, 2013 10:53 pm
Posts: 2
Location: Korea Maritime University
Thanks, Kate! :- )


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 3 posts ] 

All times are UTC


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group