Ocean Modeling Discussion

ROMS/TOMS

Search for:
It is currently Sun Aug 25, 2019 7:32 am




Post new topic Reply to topic  [ 4 posts ] 

All times are UTC

Author Message
PostPosted: Wed Nov 24, 2010 7:46 am 
Hi All,

I try to run ecosim model,
But can't compile it with gfortran:

Code:
cd /home/tdv/Build; /usr/bin/gfortran -c -frepack-arrays -fopenmp -O3 -ffast-math wrt_info.f90
wrt_info.f90:226.18:

      WRITE (char1,'(l1)') RtUVR_flag(ng)
                  1
Error: Symbol 'char1' at (1) has no IMPLICIT type
make: *** [/home/tdv/Build/wrt_info.o] Error 1


Any recommendation, please.
Thanks in advance.

Fedora 14-32bit
Intel dual core
ROMS Revision : 515M


Top
  
Reply with quote  
PostPosted: Thu Nov 25, 2010 4:40 am 
Offline
User avatar

Joined: Wed Jul 02, 2003 5:29 pm
Posts: 3646
Location: IMS/UAF, USA
It looks like a bug in wrt_info.F in that it's missing a declaration for char1. Try adding:
Code:
character*1 char1

However, wasn't there something about the writing of T/F being slow and better handled as an integer?


Top
 Profile  
Reply with quote  
PostPosted: Thu Nov 25, 2010 6:16 am 
Hi Kate,
Thank you for your reply.

with "integer" error message is:

Code:
cd /home/tdv/Build; /usr/bin/gfortran -c -frepack-arrays -fopenmp -O3 -ffast-math wrt_info.f90
wrt_info.f90:230.40:

     &                      ncid = ncid)
                                        1
Error: There is no specific subroutine for the generic 'netcdf_put_svar' at (1)
wrt_info.f90:235.40:

     &                      ncid = ncid)
                                        1
Error: There is no specific subroutine for the generic 'netcdf_put_svar' at (1)
wrt_info.f90:240.40:

     &                      ncid = ncid)
                                        1
Error: There is no specific subroutine for the generic 'netcdf_put_svar' at (1)
make: *** [/home/tdv/Build/wrt_info.o] Error 1


with "character*1" model is compiled
Thanks


Top
  
Reply with quote  
PostPosted: Thu Nov 25, 2010 6:54 pm 
Offline
Site Admin
User avatar

Joined: Wed Feb 26, 2003 4:41 pm
Posts: 1081
Location: IMCS, Rutgers University
Yes, thank you for reporting this typo. This is now corrected in the following tack :arrow: ticket. Please update.


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

All times are UTC


Who is online

Users browsing this forum: No registered users and 2 guests


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