Typo in mod_scalars.F of rev. >=919

[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