Typo in mod_scalars.F of rev. >=919

Bug reports, work arounds and fixes

Moderators: arango, robertson

Post Reply
Message
Author
stlaur
Posts: 30
Joined: Sun Jun 27, 2010 8:45 pm
Location: Old Dominion University

Typo in mod_scalars.F of rev. >=919

#1 Unread post by stlaur »

Good afternoon,

I think there's a tiny typo in the recent versions of mod_scalars.F (revision >=919):

Code: Select all

#ifdef T_PASSIVE
      IF (.not.allocated(inert)) THEN
        allocate ( inert(NPT) )
      END IF
#endif
Since "inert" is a pointer, I think it should be "IF(.not.associated(inert)" rather than "IF(.not.allocated(inert)".

Cheers,
Pierre

Post Reply